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1.0 INTRODUCTION 


The Radar Ocean Wave Spectrometer (ROWS) is an airborne radar system that measures the 
backscattered radar signal from the ocean’s surface. Jackson et al. (1985) describe the radar 
subsystem, while Ward (1992) describes the recent modifications to the data acquisition 
subsystem. The data acquisition subsystem records ROWS data and auxiliary data in a sequence 
of 1024 byte records on an 8 mm digital tape using an EXABYTE 8200. Each of the 1024 byte 
records includes a header, 700 bytes of radar signal, time, the radar antenna rotation angle (shaft 
angle), aircraft pitch and roll from the aircraft INS, and the time delay between the time of radar 
pulse firing and the time recording starts. 

PREROWS2 (for PREprocessing of ROWS data, version 2) is a compiled pc program written in 
Microsoft QuickBasic 4.5. The program allows previewing a ROWS data tape for data quality, 
copying of appropriate sections of data to a DOS file, and the subsequent reviewing of these 
DOS files. PREROWS2 is a modified version of PREROWS and is written for the ROWS data 
acquisition subsystem as improved for use with the Grand Banks ERS-1 SAR validation mission. 
Most of the features of PREROWS2 can be used with the earlier data. However, there will be 
some problems with the data presentation; as will be readily evident if the program is used for 
these earlier missions. 

The copy feature provides for transferring a sequence of records from the 8 mm tape to a DOS 
file on a pc. This is usually advantageous for intensive data review and processing because of 
the relatively slow output speed of the EXABYTE. In addition, if the operator wants to step 
backwards through a file, the EXABYTE 8200 is prohibitively slow, whereas the operation is 
very quick with a random access device. 

The location of the aircraft as determined by a GPS receiver, and some of the outputs from the 
aircraft INS system, were available for recording. These data are not yet recorded directly into 
the ROWS data stream; rather they are recorded independently on a separate pc. In each data 
record, more than 150 unused bytes exists that can be used for ancillary data. A provision exists 
in PREROWS2 to merge the separately recorded data with the ROWS data onto a new data tape. 

The user should remember that PREROWS2 is not a polished commercial program. There are 
many areas where, time and value permitting, improvements can be made. In addition, each 
mission usually has its own peculiarities that require program modifications. The discussion that 
follows highlights some of the general features that can be improved and some of the specific 
code that is deficient in some way. Program areas that may require continuing maintenance, such 
as the MERGE feature are discussed in detail. 


2.0 USER INSTRUCTIONS 

PREROWS2 operates on either an EXABYTE file taken with the ROWS radar, or on a ROWS 
file copied from the original 8 mm tape to a pc hard disk. This program is menu driven with the 
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following primary functions: 

1. Produce a time log of an EXABYTE tape. 

2. Locate any record within a ROWS file that exists on tape or in a DOS file. 

3. Copy a block of records from an EXABYTE tape to a DOS file. 

4. Convert time and aircraft pitch and roll on an 8 mm tape file to ASCII values and 
output to a DOS file. The output is an average of 100 successive pulses. 

5. Produce successive screen displays of radar waveforms annotated with ancillary 
data such as aircraft pitch and roll, radar antenna rotation angle, radar trigger 
delay, and both system time and pc "tick" time. 

6. Produce a "waterfall" screen display of radar waveforms. 

7. Merge an original ROWS 8 mm tape with INS, GPS, and other data onto a second 
8 mm tape. 

These functions are explained more fully below. 

[NOTE: PREROWS2 implements procedures for use with the ERS-1 SAR validation 
mission. The earlier missions SAXON and SWADE should be processed with PREROWS, 
the predecessor to the present version. If PREROWS2 is used with these earlier missions, 
the user should be aware that certain features won’t work and others might show spurious 
results.] 

When first run, PREROWS2 displays an information box and ten small highlighted boxes at the 
bottom. These boxes represent the ten function keys FK1 through FK10. This highest level menu 
allows the user to select the source of the data file. Use FK2 or FK3 to select a DOS or 
EXABYTE file respectively. The information box is blank in this menu because no data source 
has been selected. 

[NOTE: The EXABYTE must be turned on before pressing FK3. If an EXABYTE is not 
on, the computer will lockup and have to be rebooted.] 

Two other function keys are active: FK9 presents a display of the version and date of the 
program being run; FKIO exits the program and returns operation to DOS. 

After selecting a file source, new function key selections are shown. These new selections allow 
a user to perform several activities. The selections available from the highest level DOS and 
EXABYTE menus are described next. 
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2.1 DOS menu 


The sole purpose of this menu is to allow opening or closing a file, or to calling another menu 
where actual processing can be done. When first entering this menu from the main menu (or after 
selecting FK9 at this level), the information box is essentially blank. The record pointer is at -1 
to indicate that no DOS file is open. The ten function keys now provide the following choices: 

FK1: MainMnu 


Returns to the MAIN MENU. 

FK2: OpnFile 

Allows operator to open a DOS data file. The program stays at this menu level but 
now displays the complete file path and name, file starting and stopping times, the 
total number of records in the file, the present record number, and the time 
associated with this record. The record number cannot be changed at this menu 
level. FK3 is used to change the record number. 

[NOTE: The program error trapping for entry of the name of a non-existent 
file Is faulty. The program will recover properly by hitting the ENTER key 
a number of times.] 

FK3: PreProc 


Goes to another menu that allows selection of the record number for processing, 
display of the radar waveform in oscilloscope fashion, and display of the radar 
waveform in a color coded waterfall display. 

FK4 - 8: NOT USED 

FK9: ClsFile 


Closes any open DOS file. 
FK10: EXIT 


Exits the program and returns to the DOS prompt. 


2.1.1 DOS menu FK3 functions 

The DOS PreProc function key accesses another screen that defines a new set of operations for 
the keys. Two of these operations display the radar waveform on the computer screen. The 
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function keys provide the following operations: 


FK1: DosMen 


Returns to the DOS menu. 
FK2: NOT USED 
FK3: Rec #N 


Selects a record number at which to start other operations. 
FK4: NOT USED 
FK5: Wtrfal 


Produces a waterfall display of ROWS waveforms starting with the active record. 
Three pieces of information are needed after making this selection: the starting 
and ending byte numbers for the display and which of six (at present) color 
selections to use for the display. The color selections will be discussed below. The 
starting and ending byte numbers are referenced to the radar waveform itself; ie., 
byte 1 is the first radar waveform byte (which will be byte 51 in the actual 
record); the highest byte number allowed is 700. 

The maximum number of bytes that can be displayed on each waveform is 420. 
If the difference between the stopping and starting points on the waveform is 
greater than 420, the end of each waveform will be dropped. 

FK6: DspDat 

Displays a single ROWS waveform and annotates it with ancillary data. The 
operator can select to step singly through a file by pressing the keyboard f key; 
or, by pressing ALT-f the program steps automatically through the file. Once past 
the first record, the file can be displayed in reverse order by pressing the keyboard 
b key to backup a single record, or ALT-b to continuously display backwards 
through the file. 

After pressing FK6, you are asked to enter the first and last bytes for display. The 
byte range for a waveform is from one to 700. The speed of display depends on 
the number of bytes to be shown. 
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[NOTE: There is no error trapping for an input byte number greater than 
700; the program will crash if the ending byte is greater than 700. Also, there 
is no error trapping if the starting byte number is greater than the ending 


byte number.] 


FK7 - 9: NOT USED 
FK10: EXIT 


Exits the program and return to the DOS prompt. 


2.2 EXABYTE menu 

This highest level EXABYTE menu differs from the highest level DOS menu in that processing 
can be initiated; tape logging and tape merging are done here. The processing activities that 
parallel the DOS activites are accessed by the PreProc key, just like they are under the DOS 
menu. The ten function keys now provide the following: 

FK1: MainMnu 


Returns to the MAIN MENU. 
FK2: PreProc 


Goes to another menu that allows selection of the file number and record number 
for processing, display of successive radar waveforms in oscilloscope fashion, 
display of radar waveforms in a color coded waterfall display, copying a block of 
records from the EXABYTE to a DOS file, decoding and copying time and 
aircraft pitch and roll angles to a DOS file, and merging an original EXABYTE 
data tape with ancillary data (GPS, INS etc. data) to a second EXABYTE. 

FK3 - 4: NOT USED 

FK5: LogExb 

Logs all files on a tape. The log gives the starting and ending time of each file 
and the number of records in each file. The information for each file includes the 
starting and starting times of each continuous sequence of records within the file 
and the number of records in the sequence. The output goes to a DOS file and the 
screen. See section 2.5 for more details. 

FK6: NOT USED 

FK7: Merge 


Merges INS, GPS, and other ancillary data with ROWS data on an EXABYTE 
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tape. The merge requires an ASCII file with file name information and radar gain 
settings. The merge is done to a second EXABYTE. See section 2.3 for details. 

FK8: NOT USED 

FK9: Initize 

Reinitializes the EXABYTE tape deck. 

FK10: EXIT 


Exits PREROWS2 and return to the DOS prompt. 


2.2.1 EXABYTE menu FK2 functions 

This selection provides functions that parallel those of FK3 under the DOS menu. 

[NOTE: The first time this menu appears after a new tape has been put in the EXABYTE, 
FK2 should be selected and a file number entered. This should be done even if FILE #1 is 
being used and a one appears as the file number in the information box. In certain 
circumstances, the record number counter is off if this selection isn’t done first.] 

Besides those functions that parallel the DOS functions, this selection provides for copying a 
block of records from the tape to a DOS file, and for creating a time sequence of a 100 pulse 
average of aircraft pitch and roll that is output to a DOS file. 


FK1: MainMnu 

Returns to the previous menu 
FK2: File N 


Moves the readhead to the beginning of file number N on the tape. If there are 
less than N files on the tape, the read head SHOULD be positioned to the end of 
the last file on the tape. The menu display should show the correct file number, 
stopping time, and total records for the file. The file starting time will not be 
shown until record 1 is selected and the tape is actually positioned there. 

[NOTE: If the tape is positioned to a file other than #1, and FK2 is chosen 
AND FILE #1 then chosen, a tape rewind will be performed and all 
EXABYTE pointers reinitialized. This is a good way to reset pointers if the 
record number or file number showing on the display don’t seem to be 
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correct] 


FK3: Rec #N 


Selects the record number within a file. If the selected number is greater than the 
number of records in the file, the tape will stop at the end of the last record in the 
file, the total number of records displayed, and the ending time of the file 
displayed correctly. 

[NOTE: If a record number is chosen that is less than the present record 
number, the EXABYTE will move backward VERY SLOWLY to the proper 
record number. Always move forward through a tape unless it is absolutely 
necessary to do otherwise.] 

FK4: CpyFile 

Copies a sequence of records from an 8 mm tape to a DOS file. You will be 
asked to supply a starting and ending record number for copying. 

The starting record number can be before the number where the tape drive 
readhead is currently located. If it is, read the NOTE above for FK3. 

FK5: WtrFall 


Produces a color coded waterfall display of the received waveform signal strength. 
The display starts with the current record number. Three pieces of information are 
needed: the starting and ending byte numbers for the display and the color 
selection (one of six) to use for the display. The color selections will be discussed 
below. The starting and ending byte numbers are referenced to the radar waveform 
itself; ie., byte 1 is the first radar waveform byte, (byte 51 in the actual record). 

The maximum number of bytes (radar samples) that can be displayed on each 
waveform is 420. If the difference between the stopping and starting bytes on the 
waveform is greater than 420, the waveform will be truncated. 

FK6: DspData 

Displays a single ROWS waveform and annotates it with ancillary data. The first 
waveform will be the record where the read head is presently located. Read the 
section above for DspData using a DOS file for additional information. 


The display can be paused at the end of a waveform by pressing the keyboard jd. 
Any subsequent key will resume plotting. Anytime a plot is being produced, you 
can abort plotting and return to the calling menu by pressing ESC . 
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[NOTE: Plotting does not terminate properly at the end of a file. Plotting 
continues beyond the end-of-file mark (or beyond the end of data if no EOF 
is present) and the record counter continues incrementing. If such a situation 
arises, hit ESC. It will then be necessary to reset everything by either going 
back to file #1 or by returning to the previous menu and doing a RESET.] 

FK7: PtchRol 

Converts time, and aircraft pitch and roll in an 8 mm tape file to ASCII values 
and outputs to a DOS file. Pitch and roll are averaged for one second. 

FK8 - 9: NOT USED 

FK10: EXIT 


Exits PREROWS2 and return to the DOS prompt. 


23 Merge GPS, INS and ROWS data 

During the ERS-1 SAR validation mission, GPS and INS data were collected and saved in pc 
files separate from the actual ROWS data. Additionally, a notebook was used to record 
information that is necessary for processing the radar data. The original ROWS data is saved in 
a continuous sequence of 1024 byte records on EXABYTE tapes. The records have sufficient 
unused bytes that they can accommodate the relevant parts of the GPS, INS, and notebook data. 

These instructions pertain to the MERGE feature of the program PREROWS2.BAS. This feature 
provides for merging data from an original ROWS Exabyte tape with INS and GPS data that are 
in pc files. The merged files are stored on tape on a second Exabyte. In addition to the INS and 
GPS data, there is a provision to include a mission name, date and takeoff time, along with a 
time bias between the clocks that recorded time for the INS file and the ROWS file. Finally, 
there is a provision to include IF gain data during the merge. 


2.3.1 General merging instructions 

The following five steps are necessary to do a proper merge: 

1. Set up two EXABYTE tape drives for use. 

Two EXABYTE drives are needed on the same SCSI line. The drive from which 
the original ROWS data is being read must be set to SCSI address 5. The drive 
to which the merged data is written must be set to address 0. 


8 


2. Create a merge information file. 

Create a file that contains information about the mission. This file tells the merge 
routine where to find the other data files and provides additional information that 
can be used for later tape identification and data processing. A sample MERGE 
information file looks like this: 

ERS-l Nfnd* Mission name (10 characters maximum) 

11\14\91* Mission date 

23:35* Mission takeoff time (UTC) 

D:\ERS1\1114\PM\1114P .INS* INS data file name 
D:\ERS1\1114\PM\1114P.GPS* GPS data file name 
35* INS ahead of ROWS by 35 seconds (decimal secs) 

23:59:10 28* * 

01:21:30 26* Table for total system IF gain. 

01:22:26 29* * 

A minimum of seven lines MUST be present for a good merge and they must be 
in the order shown above. Some of the lines may be left blank, but they must be 
included. A more detailed description of the seven lines follows: 

Line 1 : An appropriate name, no longer than 10 character, can be given to the 

mission. It is useful to give a name so that the merged tape can be 
identified at a later date if its label is lost. 

Line 2 : The mission date should be the date corresponding to the UTC of the 

airplane takeoff time. 

Line 3 : The airplane takeoff time is in UTC. It doesn’t need to be very accurate, 

but it should be earlier than the first ROWS data. 

Lines 4 & 5: These are the pc file names of the GPS and INS data respectively. It is a 
good idea to include the complete DOS path with the file name. It is not 
necessary to have INS or GPS data. Just leave blank lines where necessary. 

Line 6 : The ROWS pc and the INS pc each records time from its own clock. If 

there is a bias between these two clocks it can be corrected during the 
merge. In general, the bias cannot be determined without comparing the 
pitch or roll data from the two sources and determining any phase shift 
between them. 

Lines 7 Starting at line 7 ROWS the total system IF gain can be included with the 
merge. The time of a gain change is recorded in the first column and the 
gain in the second. There must be at least one space between the two 
columns. The first gain is the gain when the mission begins. If the first 
gain isn’t known, enter a -99. A maximum of 100 gain changes per 
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mission can be accommodated. 


The program requires that the first times in the INS and GPS files and the aircraft 
takeoff time in the Information file not differ by more than l h 59”. 

It is not necessary to include the comments (or the asterisk, if there is no 
comment). However, at least one space must exist after the last character of 
the actual data (or file name) even if no comment exists. If some of the data is 
missing it is probably a good idea to include a few spaces and then an asterisk 
and comment to the effect that there is no data. At least one line must exist that 
represents system gain, even if the gain is unknown. 

3 Insure that the INS data that covers the period of time of the 8 mm tape is in one 
pc file. 

The INS data for a single flight must be in a single pc file. If the data is located 
in several file, it is necessary to concatenate the files into one file. It is important 
that the files be concatenated in correct time sequence. 

4. Edit the GPS data file to eliminate "spurious" records, 

The GPS data for a single flight must be in a single pc file. If the data is located 
in several file, it is necessary to concatenate the files. It is important that the data 
be concatenated in correct time sequence. An occasional GPS file will have what 
appears to be a spurious line at the top of the data. Any spurious data lines must 
be removed before the program will work correctly. 

5. Run the merge program. 

a. Run PREROWS2. 

b. From the MAIN MENU select Function Key 3 (EXABYTE). 

c. From the EXABYTE menu select Function Key 7 (MERGE). 

d. Enter the name of the MERGE INFORMATION FILE. 

The program will now merge the original ROWS tape with the available data identified in the 
merge information file. Each ROWS record is read and decoded. Ancillary data is similarly read 
and decoded and then time synchronized with the ROWS record. Be aware that this process takes 
about 10 times longer than the time it took to record the original data. Thus, if there are several 
hours of data on the original tape, merging will take 10 times several hours! 
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Each merged tape file(s) record includes the following: 

1. Raw, unprocessed, ROWS radar return; 

2. Antenna gain (IF attenuation); 

3. "Corrected" antenna shaft angle; 

4. "Corrected" pc real-time without the spurious FF FF bytes that occurred; 

[NOTE: After this program was written it was discovered that other spurious 
real-time words can occur. The user should be aware of the possibility they 
may exist] 

5. GPS latitude and longitude; 

6. INS block of 10 words presently stored on floppy disk; 

7. pc "tick time" stored as an eleventh word with the INS data; 

8. A "NO DATA" indicator (FF FF or -32768) for missing data; 

9. A modified header that properly reflects the above record structure. 

10. The mission name and date. 

[NOTE: The mission name and date are stored in the last 18 bytes of each 
record. The existence of this information is not recognized by the header. See 
section 4.0 below for more information.] 

After the last record of the original data tape is read and written to the merged tape, an EOF will 
be written to the new tape. 


23.2 INS data 

INS data from a digital Litton 92 was recorded on a separate pc during the ERS-1 SAR 
underflights. A DAS-429PC/HC interface card from Excalibur Systems Inc was used in the pc. 
The 32 bit word format in the pc file is dictated by the Excalibur interface. The specification is 
taken from page 9 of the DAS-429PC/HC manual. 

The format of a 32 bit INS data word adheres to the ARINC standard; 20 bits represent data, 4 
bits represent status, and parity, and the remaining 8 bits specify a data label. The 
DAS-429PC/HC reformats each ARINC word as follows: 
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BYTE 1 


BYTE 2 


BYTE 3 


BYTE 4 


pc 

ARINC 

bit 

bit 

7 

Data 

13 

6 

Data 

12 

5 

Data (LSB) 

11 

4 

Data (or SDI) 

10 

3 

Data (or SDI) 

9 

2 

SSM status 

31 

1 

SSM status 

30 

0 

Parity status 

32 


pc 

ARINC 

bit 

bit 

7 Labe] 

01 

6 Label 

02 

5 Label 

03 

4 Label 

04 

3 Label 

05 

2 Label 

06 

1 Label 

07 

0 Label 

08 


pc 

ARINC 

bit 

bit 

7 Sign 

29 

6 Data (MSB) 

28 

5 Data 

27 

4 Data 

26 

3 Data 

25 

2 Data 

24 

1 Data 

23 

0 Data 

22 


pc 

ARINC 

bit 

bit 

7 Data 

21 

6 Data 

20 

5 Data 

19 

4 Data 

18 

3 Data 

17 

2 Data 

16 

1 Data 

15 

0 Data 

14 


Each data word is a maximum of 20 (or 18) bits plus the sign bit. Within the 32 bit word, these 
20 (or 18) bits are obtained by taking bytes 3, 4 and 1 in that order with the most significant bit 
(MSB) as the sign of the data. The data bits need to be right justified in the new 32 bit data 
word. The 20 bit words use bits 4 and 3 of byte 1 as the least significant bits of the new 32 bit 
data word. For the present data set, only BCD latitude and longitude use the 20 bit word format. 
The 10 ARINC data words, and their word order on disk are: 


decimal 

hex 

description 

# 

Range 

Resolution 

label 


(bits) 



8 

08 

BCD latitude 

22 

-90, +90 

0.1 min 

9 

09 

BCD longitude 

22 

-180, +180 

0.1 min 

202 

CA gmd speed (bin) 

15 

0 - 4095 

0.125 kts 

203 

CB 

track angle 

15 

-180, +180 

0.0055 deg 

204 

CC 

true heading 

15 

-180, +180 

0.0055 deg 

212 

D4 

pitch angle 

15 

-180, +180 

0.0055 deg 

213 

D5 

roll angle 

15 

-180,+180 

0.0055 deg 

241 

FI 

altitude 

20 

-131072, 131072 

0.125 ft 

214 

D6 

pitch rate 

15 

-128,+128 

0.0055 deg/sec 

215 

D7 

roll rate 

15 

-128, +128 

0.0055 deg/sec 


Time is recorded with each INS record. This time is the "tick" time in the pc that records the INS 
data. The INS pc real-time clock is set each day by voice call from one of the airplane crew who 
reads a master clock. The time used is UTC. At the time the real-time clock is set, the "tick" time 
is automatically reset to the correct count by the computer. During a mission, the same procedure 
is followed simultaneously with the ROWS computer clock. However, during data reduction the 
time synchronization between the ROWS and INS data has to be done using the real-time clock 
in the ROWS data records. The "tick" time from the ROWS pc cannot be used because it loses 
excessive amounts of time through interrupts during the actual data acquisition process. 


23 3 GPS Latitude and Longitude data 

PREROWS2 assumes that the GPS data file is formatted using the NMEA Global Positioning 
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Satellite Position data format, which is ASCII. A typical line of data in the GPS NEMA format 
reads: 


$GPGGA,1 24559.0, 4855.9774, N, 05434.0569/ W,l, 6, 01.4, +99, M, +000, M 

A comma delimits the data fields. The second field is time in hours, minutes, and seconds, 
without delimiters. The third field is latitude, the fourth indicates whether latitude is north or 
south. The fifth field is longitude, the sixth indicates whether longitude is east or west. Latitude 
and longitude are in degrees and minutes with no delimiter between. The above line is interpreted 
as 12 hours 45 minutes, 59.0 seconds with a position of 48 degrees 55.9774 minutes North 
latitude, 054 degrees 34.0569 West longitude. The remaining fields are ignored by this program. 

Data in the GPS pc file is updated once per second on the GPS second. At present (1992) GPS 
time is running ahead of UTC by 8 seconds. This time difference must be compensated for when 
merging GPS with other data sets having time recorded as UTC. This time difference is written 
into the subroutine TimeGPS$. 

TTie MERGE subroutine converts GPS latitude and longitude into minutes of arc as a long signed 
integers (32 bits) with the least significant bit representing 0.0001 minutes of arc. Thus, a sample 
GPS output 


4855.9774, N, 05434.0569, E, 

is converted to 32 bit integers as 

(48 x 60 + 55.9774) x 10 A 4 x (+1) = 29359774 
(54 x 60 + 34.0569) x 10 A 4 x (-1) = -32740569 

With the first byte in a ROWS record defined as number one (as opposed to zero), latitude and 
longitude are merged with the 1024 byte ROWS record. Latitude starts at byte 769 and longitude 
starts at byte 773. 

Before the GPS data can be integrated with the ROWS data, time needs to be synchronized 
properly between the two data sets. GPS data is recorded once per second; ROWS 100 times per 
second. The merged tapes will have GPS data recorded only once per second; the intervening 
GPS values are represented by a "no data" word (FF FF FF FF). This procedure presents a 
problem for later data processing. Section 4.0 discusses the problem. 


2.4 Waterfall display color codes 

The radar data is digitized by an 8 bit A/D converter, thus giving a range of integers from 0 to 
255. Within the QuickBasic 4.5 language, a VGA monitor can display 16 colors. PREROWS2 
has six color selections, each defining the integer intervals to be displayed by the 16 colors. The 
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subroutine Levels defines the integer ranges for the six selections. The choice of levels for the 
integer ranges was based on actual waterfall plots; the choices being made based on the visual 
appearance of the plot. Table I shows the color selections and the associated integer ranges that 
go with each color: 


TABLE I 




COLOR SELECTIONS 



COLOR 

1 

2 

3 4 

5 

6 


Black 

0-8 

0-9 

0-10 

0-10 

0-15 

0-10 

Blue 

9-14 

10-11 

11 

11-14 

16-30 

11-12 

Green 

15-16 

12-13 

12 

15-16 

31-50 

13-14 

Cyan 

17-18 

14-15 

13 

17-18 

51-60 

15-16 

Red 

19-21 

16-17 

14 

19-20 

61-70 

17-18 

Magenta 

22-24 

18-19 

15 

21-22 

71-80 

19-20 

Brown 

25-26 

20-21 

16 

23-24 

81-85 

21-23 

White 

27-29 

22-23 

17 

25-26 

85-90 

24-27 

Gray 

30-32 

24-25 

18 

27-28 

91-95 

28-30 

Lt Blue 

33-37 

26-27 

19-20 

29-30 

96-100 

31-35 

Lt Green 



21-22 

31-33 

101-110 

36-40 

Lt Cyan 



23-24 


111-120 

41-45 

Lt Red 

49-56 

32-33 

25-26 

36-45 

121-130 

46-50 

Lt Magenta 

57-63 

34-35 

27-40 

46-55 

131-140 

51-60 

Yellow 

64-70 

36-50 

41-60 

56-80 

141-220 

61-75 

Bright White 


51-255 

61-255 

81-255 

221-255 

76-255 


2.5 LOG TAPE 

One of the first things to do after a mission is to produce a listing of the times data was acquired. 
This is accomplished with the LOGEXB function key (FK5) in the first EXABYTE menu. The 
tape log subroutine skips in increments of 100 records when looking for time breaks. This saves 
considerable time while doing the log because only one out of 100 records has to be decoded. 
Because the program skips 99 records, a time break in a recording sequence can only be 
determined to within ±49 records. In addition, for the worst case, the number of records in a 
sequence can be off by as much as 198 records, or about two seconds in time. Since the log is 
only used to indicate the approximate location of breaks in the data, this imprecision shouldn’t 
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cause a problem. If more precision is required in locating such breaks, it can be obtained by 
stepping through a file one record at a time using FK3 (Rec #N) and looking for time jumps on 
the display. The following is a sample of a tape log: 



FILE NUMBER: 

1 


Start Time 

Stop Time 

Start 

Stop 

Number 

pc tick 

pc tick 

Rec# 

Rec# 

Rees 

01:39:37 

01:39:34.02 

1 

2 

2 

01:39:45.23 

01:51:58.54 

101 

73302 

73202 

01:54:31.45 

02:00:23.08 

73401 

108461 

35061 


End of file. 

Start Time: 01:39:37 Stop time: 02:00:23 
Total Records: 108561 
END OF DATA. 

[NOTE: The program does not give the exact numbers for the Stop Record # and Record 
length (ie., number of records) for the last continuous sequence of records in a file. If there 
is only one long sequence of non-broken continuous records in a file, these numbers MAY 
be correct. In any case, the Starting Time, Stopping Time, and Total Records information 
at the end of each file should be correct If any numbers are incorrect, the errors should 
be small; ie., record numbers may be in error by one or two and the time by less than 0.1 
secs.] 

There is a potentially serious problem with the ROWS data recording that will not be easily 
detected with the logging subroutine. The subroutine relies on the pc "tick" timer to determine 
the time between two records that are 100 records apart. However, the "tick" timer looses time 
if another device interrupts the computer from updating the timer. At the same time, the computer 
interrupt can prevent new records (radar pulses) from being recorded. If this happen, there will 
still be 100 records per second recorded, but the real time gap will be greater than one second. 
This happens, in particular, when the EXABYTE tries to write to a bad spot on tape. The write 
time can exceed many timer counts. The seriousness of this problem has not been fully explored. 


3.0 RECORD FORMAT 

ROWS records contains a header, the backscattered radar signal from a single radar pulse, and 
a variety of ancillary data. The structure of each record consists of a header terminated with two 
ff(hex) bytes, followed by data in the same sequence as the definitions in the header. The header 
is composed of a sequence of pairs of two byte (16 bit) integers that designate the type of data 
recorded (first integer) and the number of bytes allocated to that data type (second integer). 


3.1 Raw data record format 
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The following data types and lengths are defined for the raw recorded data starting with the 
ERS-1 mission: 


TYPE LENGTH 
(bytes) 

TYPE DEFINITION 

0000 

50 

The header 

0001 

700 

ROWS radar return waveform 

0002 

4 

Pc clock "tick time" 

0003 

2 

Waveform digitizer trigger delay 

0004 

5 

Time from pc real-time clock 

0006 

2 

Aircraft roll angle 

0005 

2 

Aircraft pitch angle 

0007 

1 

Antenna shaft "angle" (No data recorded) 

0008 

2 

Antenna shaft angle 

0009 

4 

Observer latitude 

0010 

4 

Observer longitude 

0011 

80 

INS data 

ffff 

0 

Empty data type (header terminator) 


856 (total bytes presently defined in the 1024 byte record) 


The header itself uses the first 50 bytes of each record (two bytes each for the 12 data types plus 
two bytes for the terminator). After the header are the 806 data bytes defined by the header. The 
remaining 168 (1024 - 856) bytes are not used. Note that the data types do not need to be 
recorded in a monotonically increasing order; but, if the order is changed, the header also needs 
to be rearranged to reflect this new order. 

The data types have the following formats: 

TYPE description 

0000 The header 

0001 ROWS radar return waveform. 

700 radar samples from an 8 bit A/D converter. The samples are saved as 
successive 8 bit binary integers. 

0002 Pc clock "tick time". 

Number of pc clock "ticks" since midnight as determined by the data acquisition 
computer. There are approximately 18.20648 clock ticks per second. The result is 
stored as a 32 bit (4 byte) binary integer. 
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0003 Waveform digitizer trigger delay. 

The time delay from the radar pulse transmission ("main bang) to the start of 
waveform digitizing. The delay is determined with a 10 MHz clock (thus 
providing a resolution of 100ns) and is recorded as a 16 bit integer. This delay 
corresponds to the range from the aircraft to the first recorded point on the ROWS 
radar return waveform. 

0004 Time from pc real-time clock. 

A five byte field is reserved for time, although only three bytes are used for pc 
time. The encoding format is binary coded decimal (BCD). Byte 5 (right most) 
represents hours; byte 4, minutes; byte 3, seconds. Bytes two and one are not used 
(they are reserved for the possibility that another time code may be used in place 
of the pc real-time clock.) The actual data encoding is for the two nibbles of each 
byte to be the binary representation of the two digits of each time unit. 

0006 Aircraft roll angle. 

12 bit integer representing 1/(2 A 12) of 360 degrees or 0.08789 th of a degree. 

0005 Aircraft pitch angle. 

12 bit integer representing 1/(2 A 12) of 360 degrees or 0.08789 th of a degree. 

0007 Antenna shaft "angle" 

This data type is a carryover from earlier ROWS missions when the full shaft 
angle word was not available. At present, nothing is recorded here, although the 
header indicates otherwise. 

0008 Antenna shaft angle. 

The rotation angle of the ROWS antenna is obtained from a 14 bit shaft angle 
encoder whose output is in BCD format with a resolution of 0.1 degrees. The four 
nibbles represent hundreds of degrees, tens of degrees, degrees, and tenths of a 
degree. Bits 15 and 16 are not used by the encoder. 

[NOTE: Bit 15 flags which antenna is used for that record. The altimeter 
horn is indicated by a 1, the scanning antenna by a zero (0).] 

0009 Observer latitude. 

Not yet directly available to ROWS. 
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0010 Observer longitude 

Not yet directly available to ROWS. 

0011 Inertial Navigation System (INS) data. 

Not yet directly available to ROWS. 

[Note: This data type represents more than one piece of data. The INS data 
type has its own internal structure which, for the merged data, at least, 
contains eleven variables.] 


3.2 Data types for modified data 

In principle, the integer designating a data type can be arbitrary within the range of the two bytes 
allocated for it. However, it seems useful to reserve a group of integers for a specific class of 
data. The classes suggested are "raw ROWS collected data", "raw ROWS data after some type 
of preprocessing", "raw ancillary data merged after flight with the ROWS data", and "merged 
ancillary data that has been processed". Various miscellaneous data types can be assigned 
numbers outside the range of numbers assigned to the broader classes. 


Type ranee 
00000 - 00998 
01000 

00999 

01001 - 09999 
10000 - 10999 


21001 - 29999 


Description 

Original ROWS collected data. 

Designates ASCII text that is entered either during, or after, the 
mission for purposes of annotation. 

Flags a file of original data that has been selected so that it only 
contains a time contiguous sequence of consistent "good" data. 
Length is 0 

Raw ancillary data. 

Original ROWS data after some type of preprocessing. The last 
three digits should be the same as those of the original data. The 
particular type of processing can be indicated by the second digit 
from the left. This typing method evidently allows 10 different 
methods for processing a particular data type before some other 
arbitrary type needs to be assigned. 

Processed ancillary data of types 01001 - 09999. 
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The actual data types, length (in bytes), and formats used for the merged data are: 


TYPE 

01001 

01009 


01010 

01011 


10020 


10021 


LENGTH DESCRIPTION 


1 Antenna gain in dB (IF attenuation) from flight log sheets. 

4 Latitude from GPS. 

A signed long integer with South latitude represented by a negative 
number. The integer will represent one-ten thousandth of a degree of arc. 
Thus, one degree will be represented as 100000. The largest number that 
needs to be represented is ± 90 degrees, which is ± 9000000 in the 
suggested format. 

4 Longitude from GPS with West longitude represented as a negative 
number. The largest number will be ± 90 degrees. See latitude format for 
more information. 

80 INS data including independent pc ’tick’ time. 

This data type contains a block of eleven words, ten taken from the LTN- 
92/ARINC-429 digital output from the aircraft INS, and one taken from the 
pc "tick" timer in the pc that recorded the ARINC data. The data format 
will be the same as recorded on the disk file (ie., no format changes are 
made). 

4 pc real-time clock data with spurious hex FF FF words set to the correct 
time. 

A spurious FF FF time word can appear at the start of a new second of 
time. It is not clear which second (the previous one or the new one) this 
belongs with. However, at a ROWS update rate of 100 pulses per second, 
the assignment of the spurious FF FF to the previous time will be adequate. 

1 Antenna shaft angle with the one degree bit corrected for dropouts. 

Several bits from the shaft angle encoder don’t operate. This data type 
results from a correction algorithm for the angle. The accuracy of the 
correction remains to be determined. However, it is probably better than ± 
0.4 degrees of arc. Bit 15 still flags the antenna type that obtained the data 
for the record. 
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4.0 DISCUSSION 


PREROWS2.EXE is a "working" program, subject to modifications as the need arises. As such 
it is an evolutionary product. The immediate predecessor to this program, PREROWS, started in 
late 1990. Because of the evolutionary nature of the program, there are obvious pieces of 
unneeded code, non-uniformity of code structure, half written subroutines, and other symptoms 
of non-top down development. Future modifications of a substantive nature will primarily be 
needed only as dictated by a change in the actual ROWS hardware. It should be mentioned that 
PREROWS is still needed for looking at the data tapes collected prior to August of 1991. 

There are several additions to PREROWS2 that might be effected for future missions, even if no 
overall hardware changes occur. Starting with the ERS-1 SAR validation mission, the ROWS 
transmitter/receiver switches, on a pulse-to-pulse basis, between a fixed nadir pointing antenna 
(altimeter mode) and the off-angle scanning antenna. Thus, a ROWS data file has altimeter mode 
data interleaved with azimuthally scanning mode data. PREROWS2 thus displays interleaved 
waterfall or waveform displays that are difficult to interpret. For both the waterfall and waveform 
displays, a choice should be given to present the data from one antenna or the other. 

At present the altimeter mode data is separated from the azimuthally scanned data using a stand 
alone program that splits the data into two pc files. Each file can then be looked at using 
PREROWS2. The ability to separate these two data types into two files should be made part of 
the COPY feature (FK4: CpyFile, under section 2.2.1 above). 

The ROWS data acquisition software does not presently put an EOF at the end of a recorded file; 
nor does it insert an EOF whenever the radar is shut off but the tape recorder left on. (This 
causes a large time gap between successive records.) Because of this, a single ROWS tape file 
can be many hundreds of megabytes long with time gaps occurring throughout. Since there are 
not presently any ROWS tapes with multiple files on them, PREROWS2 software hasn’t been 
tested for possible "bugs" while using a multiple file tape. In addition, the merge feature of 
PREROWS2 does not have the capability of merging more than one file onto a single tape. If 
future missions have multiple files on a tape, PREROWS2 will have to be modified accordingly. 

Most of the subroutines in the present program do not read the header to determine which data 
types are present; they assume a series of specific data types in a specific order. A more flexible 
program would read the header and decode the data as indicated by the data type. The tapes 
produced with the MERGE feature have several data types that differ from the raw data. 
PREROWS2 processes the data properly because the modified record contains the same variables 
(corrected for errors, etc.) with the same lengths and in the same places as the original header 
defines. The main purpose of defining these particular data types is to make some hypothetical 
future user of the tape aware that s/he is not working with the raw data. 

The method used to merge GPS data with the ROWS data has one major drawback. GPS data 
is only merged with the record that corresponds to the closest exact second at which it is 
recorded. Thus, there are 99 records without GPS data for each one with data. Later, when data 
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is separated into two files, one with altimeter data, the other with the scanning antenna data, there 
can be very long stretches without GPS data in one of the two files. In fact, if there were an 
exact even number of pulses per second, all GPS data would be merged into one or the other of 
the separated file, leaving one file without any GPS data. 

For future ROWS operations, more attention should be given to properly using the header in each 
record. To date, most of the data analysis software doesn’t anticipate future needs. Most of this 
software demands a header with 50 bytes and data located exactly where the original ROWS 
acquisition software put it and with the same format. This rigidity defeats the purpose of having 
a header. For instance, the merge program allows a project name and date to be put in a data 
record. Unfortunately there is no room within the 50 header bytes to flag the existence of this 
information. The merged records have a project name and date located in bytes 1007 through 
1024; unacknowledged by the header and potentially unappreciated by some future user of the 
tapes. In addition, several of the variables in a merged tape record can have a varying type 
throughout the file. This will happen, for instance, with the real-time when the FF FF has been 
corrected, or with the shaft angle for those angles that have been corrected. 

The tape logging subroutine should be changed to use anything other than the "tick" timer as a 
time source. One approach would be to use the real-time clock and count the number of pulses 
that occur between two successive seconds. If the count deviated by more than some allowable 
amount (± 2) then the data for that second could be discarded. 


5.0 PROGRAM DESCRIPTION 

PREROWS2.EXE is a Microsoft QuickBasic 4.5 compiled program. The Microsoft library 
BRUN45.LIB and a library of routines to interface with the EXABYTE 8200 tape deck have 
been linked with the PREROWS2 source code to produce a single program. More than 90 
subroutines are comprised in the program. Access to the EXABYTE 8200 is provided through 
the library of QuickBasic routines written by APtek, Inc. of Rockville, MD. 

The main program defines the data structures, declares the subroutines and functions, dimensions 
the global variables (including four variables from the two data structures), five constants, and 
two string variables, and then calls one subroutine in an infinite loop. 

One data structure (FileStats) holds the filename (for a DOS file), a file number (for a tape file), 
the current record number, the total records in a file, a pointer to the present byte in a record, 
and the starting and ending times of a file. 

The second data structure (Dta) defines variables that hold the decoded data from a 1024 byte 
data record. As presently written, this data structure rigidly defines the variable types and lengths. 
If any of the data string lengths change (for instance, if the header length changed from 50 bytes, 
or the INS data were longer than 80 bytes), then this data type would have to be changed and 
the program recompiled. 
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Most of the subroutines have some internal documentation. This section will only highlight those 

routines most likely to be affected by future changes in the ROWS hardware. For the most part, 

the discussion of the subroutines follow alphabetically. 

FUNCTION ADTriggerDelay returns the time delay between the time of transmission of a radar 
pulse and the start of the A/D converter. The delay is returned as meters below the 
airplane. The actual delay is determined by a simple counter. There is a count bias of 74 
units written into the program to accommodate a hardware induced bias of the same 
amount. If the hardware bias is changed, this subroutine will have to have its bias 
changed. 

SUB AscIIPitchRoll provides a time sequence of aircraft pitch and roll from a file on 8 mm 
tape. Pitch and roll are averaged over 100 records and output to a DOS file a one sample 
per second. The average can be altered by changing the value of the variable NAve% in 
the subroutine. 

FUNCTION ClockTime$ presently returns Dta.TrueTime, which is the time as recorded from 
the pc real-time clock. Most routines that need time call ClockTime$. If a time source 
other than the pc real-time clock is available for display or data processing, it is only 
necessary to have ClockTime$ return this new time. This indirect way of accessing time 
saves the labor of searching all routines for a specific time (Dta.TrueTime, for instance) 
and replacing that specific time with the new time. 

Dta also provides the variables Dta.TickTime, which is the time returned by the pc "tick" 
timer, and Dta.AccurateTime. This latter time was provided by an external time code 
generator for missions prior to the ERS-1 SAR Validation Mission, and did not exist after 
August, 1991. Since Dta.AccurateTime was recorded in the same byte locations 
Dta.TrueTime, it is necessary to insure the correct time is used with the particular 
mission be looked at. The forerunner program to PREROWS2 uses Dta.AccurateTime. 

SUB DataTypes is part of a package of subroutines that will be used to read a header and 

process the data according to the data types specified by that header. It is incomplete and 
not used. 

SUB DecodeHeader translates the header string into a two dimensional short integer array with 
each row having the numerical data type and the number of bytes in that type. 

SUB DecodeRecord assigns the individual variables in a ROWS record to the data structure Dta. 

SUB DosFile defines the highest level DOS menu. 

SUB DosPreProcessing defines the menu that calls some of the actual data manipulation 

subroutines. There are presently five undefined function keys in this menu that can be 
used to perform additional operations. 
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SUB ExbFile is the companion subroutine to DosFile and defines the highest level EXABYTE 
menu. 

SUB ExbPreProcessing is the companion subroutine to DosPreProcessing. There are only two 
undefined function keys available for additional operations. 

SUB ExbStatus is provided to interpret all the status codes return by the EXABYTE drive after 
it has been accessed. This routine has not been completed and is not presently use. 

SUB ExbTapeLog has been explained in some detail in section 2.5 above. 

SUB FileN moves the EXABYTE readhead to the file number that is entered. At present there 
is only one file on any ROWS 8mm tape. If a larger file number is chosen the tape drive 
will search until the end-of-data (EOD) is encountered. 

SUB GPSDisplay simply prints, if present, the GPS latitude and longitude on the radar 

waveform displays. At present GPS only exists in a ROWS record if it has been merged 
with the record. 

SUB GPSLatLong strips GPS latitude and longitude from a GPS NEMA data format record. 
Details of the GPS format and other related information is contained in section 2.3 above 

FUNCTION IntergerTIME converts a time string that is in hours, minutes, and seconds with 
delimited by colons (:) into seconds as a long integer. 

SUB MERGE should be useable to correct errors in ROWS data and save the corrected records 
to the new tape - even if no INS or GPS files are available for merging. PREROWS2 
hasn’t been tested to see if all subroutines will work properly if no INS or GPS file 
names are available. However, if there are program "bugs" that prohibit "merging" in this 
manner, they should be easy to fix. With the present structure of PREROWS2 it seems 
MERGE is the most logical place to do real data preprocessing in a bulk mode. 

FUNCTION NameDATE is used by MERGE to put a mission name and date onto the new tape 
As noted in section 4.0 this information "hangs out" in a region of a ROWS record that 
is not recognized by the header as having information. 

FUNCTION NewHEADER rigidly defines the header structure of a merged data tape. As 

mentioned in several sections above, this rigidity should be removed in some future 
version of this program. 

SUB ParameterDispIay recognizes the GPS merged data type and displays the data, if present 
The subroutine needs to have code added to recognize the other data types present on a 
merged tape, and to read and display the mission name and date, if added. 
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FUNCTION PitchRoll has a 120 degree bias "correction" written in because of miswiring of the 
shaft angle encoder. This subroutine will have to be changed if the wiring is corrected. 

SUB PlotRadReturn sets up the logic for using either a DOS file or EXABYTE file, for moving 
stepping single or continuously through a file, or for stepping forwards or backwards (for 
a DOS file). The actual plotting is done in the two subroutines StepForwards and 
StepBackwards. 

SUB PresentFile prints the file status information to the screen. The routine doesn’t presently 
recognize the merged data types. 

FUNCTION ShaftAngle partially corrects for a serious error in the recorded data from the shaft 
angle encoder. The correction is only performed in the MERGE subroutine. 

FUNCTION TimeGPS has an 8 second subtraction from GPS time to synchronize it with UT. 
This correction may have to be updated for future missions. 

SUB Waterfall plots very slowly. If increased speed is required it may be necessary to write 
an assembly language routine to write directly to video ram. This routine should be 
written so that it can be linked with PREPROWS2 during compilation. 
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APPENDIX I: PROGRAM SOURCE CODE 


This section contains the PREROWS2 source code. Additional comments have been added to the 
original program. These are printed in a bold italic font. 

f PREROWS2.BAS (PREprocessing of ROWS data) [crv 10/13/92] 

* QuickBASIC source code for reading from or writing to a ROWS "standard" 

’ 1024 byte record data file. The file can be either a DOS file or a 

’ file on an EXABYTE streaming tape. 

’ The "standard" format starts with a header that describes the subsequent 
’ DATA bytes in the record. The header has pairs of integers (2 bytes each), 

’ the first designating a data type, the second designating the number of 

* data bytes used by that type. The sum of the number of bytes in the header 
’ plus the bytes in all the data types must equal 1024. 

’ The Aptek QuickBasic library qbx.lib is needed for proper compilation 
’ of this program. 

OPTION BASE 1 


TYPE FileStats 

FileName AS STRING * 40 ' The filename with directory and path cannot be longer than 40 characters \ 

FileNo AS INTEGER 
Record AS LONG 
To ta {Records AS LONG 
ByteLoc AS LONG 
TStart AS STRING * 8 
TEnd AS STRING * 8 
END TYPE 


TYPE Dta 

Header AS STRING * 50 
Radar AS STRING * 700 
AccurateTime AS STRING Ml 
TickTIme AS STRING * 11 
TrueTime AS STRING * 8 
TriggerDelay AS SINGLE 
Pilch AS SINGLE 
Roll AS SINGLE 
ShaflAngle AS SINGLE 
CorrShaftAngle AS SINGLE 
Latitude AS SINGLE 
Longitude AS SINGLE 
InsData AS STRING * 80 
END TYPE 


’ The present header is fixed at 50 characters . 

’ It is probably not a good idea to use a data structure for the decoded 
’ variables. The problem with this approach is that it lacks flexibility if 
’ more data needs to be added to a ROWS record. 


* The INS data word is limited to 80 characters . 


DECLARE SUB AscIIPitchRoll 0 
DECLARE SUB BegEndByte (A%, B%) 
DECLARE SUB Blank 0 
DECLARE SUB CheckExbStatus (A%) 
DECLARE SUB ColorLeveU 0 
DECLARE SUB CopyDosToDos 0 
DECLARE SUB CopyExbToDos 0 
DECLARE SUB DataTypes 0 
DECLARE SUB DecodeHeader (H$) 
DECLARE SUB DecodeRecord 0 
DECLARE SUB DfnKy (AS) 

DECLARE SUB DosFile 0 


Time, pitch, roll to separate ASCII file. 


Define colors for waterfall display. 

This feature hasn *t been implemented 

Display the types of data. 

This subroutine hasn*t been completed. It's presently unused. 
Decodes the 1024 byte data record. 

Define the function keys. 

DOS will be the source device. 
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DECLARE SUB DosPreProcesstng 0 
DECLARE SUB DriveReady 0 
DECLARE SUB EndOfData 0 
DECLARE SUB EnterFileName (AS, B$) 

DECLARE SUB EnterRecord (A&) 

DECLARE SUB ExbFilc 0 
DECLARE SUB ExbPreProcessing 0 
DECLARE SUB ExbReset (A%) 

DECLARE SUB ExbStatus (AS, B%) 

DECLARE SUB ExbTapeLog 0 
DECLARE SUB FileN 0 
DECLARE SUB FileOpen (AS) 

DECLARE SUB FirstMenu 0 
DECLARE SUB FkSet (A$0) 

DECLARE SUB GPSDisplay (AS) 

DECLARE SUB Hclp2 0 
DECLARE SUB IDLE 0 
DECLARE SUB IFGains (F%, TTo&, GT&O) 

DECLARE SUB INFOFILE (MNS, MDS, MT&, GT&O, IFNS, 
DECLARE SUB Keystroke (A%) 

DECLARE SUB LastRecord 0 
DECLARE SUB Levels (A%) 

DECLARE SUB MERGE 0 


1 Display the DOS preprocessing menu. 
f Test if EXABYTE drive is ready. 

1 Advance the EXABYTE tape to the end of data 
’ Keyboard entry of DOS filename. 

’ An EXABYTE tape has the source file. 

* Reset the EXABYTE tape deck. 

* Sense code definitions for EXABYTE. 

* Produce complete EXABYTE tape log. 

' Advance the EXABYTE tape to file N. 

1 Check if DOS file is already open. 

9 Main Menu. 

* Set the function key names. 

’ Displays GPS data on waveform display. 

9 Help menu for PlotRadRetum 

* Pause program until operator keystroke. 

GFN$, ITL!) 

’ Trap keyboard keystrokes. 

1 Set file to the final record. 

’ Selects the waterfall display colors. 

* Merges raw ROWS data on one EXB tape with INS, GPS, and 

* IF Gain data onto a second EXB tape. 


DECLARE SUB MergeGPS (MS, S&, R1&, R2&, G&, GF%) 

DECLARE SUB MergelNS (MRS, MHS, ST&, RT2#, InsT#, InsF%, InsTLS) 


DECLARE SUB Message (A%, B S) 

DECLARE SUB MINMAX (A&O, N, x&, Xi, Y Yi) 
DECLARE SUB NoFile 0 
DECLARE SUB OpenExistingFile 0 
DECLARE SUB OpenNewFile (AS) 

DECLARE SUB Pa rameterDi splay 0 
DECLARE SUB PlotRadRetum 0 
DECLARE SUB PresentFile 0 
DECLARE SUB ProcessMenu Q 
DECLARE SUB ReadRecord 0 
DECLARE SUB RecordN 0 
DECLARE SUB ResetDosStats 0 
DECLARE SUB ResctDta 0 
DECLARE SUB ResetExbStats 0 
DECLARE SUB ResetActiveStats 0 
DECLARE SUB Rewind 0 

DECLARE SUB STARTINGTIME (S&, M&, I&, G&) 
DECLARE SUB StepBackwards (A%, B%, C%) 
DECLARE SUB StepForwards (A%, B%, C%) 
DECLARE SUB Update 0 
DECLARE SUB ValidROWSFile (AS, B%) 

DECLARE SUB Version 0 
DECLARE SUB Waterfall 0 
DECLARE SUB WaveFormPlot (A%, B%) 

DECLARE SUB WriteRecord (PS, F%) 


Display color message. 

Find the maximum and minimum values of a set of numbers. 

No file open warning. 

Open a DOS ROWS file. 

Open a new DOS file for results output. 

Display for PlotRadRetum 
Plot radar return waveform. 

Display open file stats. 

Display the processing menu. 

Read a new data record. 

Set file to record N. 

Initialize DOS variables. 

Initialize decoded data variables. 

Initialize Exb variables. 

Initialize operating variables. 

Rewind EXABYTE tape deck. 

Used by MERGE to time synchronize GPS, INS, and ROWS files. 
Step backward through DOS file. 

Step forward through DOS or EXB file. 

Update the screen display 
Check is file is valid ROWS file. 

Display the PREROWS version and date. 

Color coded waterfall display of pulses. 

Plot radar waveform. 

Write a ROWS record to a DOS or EXB file. 


DECLARE FUNCTION AccurateTimeS (AS) 
DECLARE FUNCTION ADTriggerDelay& (AS) 
DECLARE FUNCTION ByteLocA 0 
DECLARE FUNCTION CiockTimeS 0 
DECLARE FUNCTION ColorSelection% 0 
DECLARE FUNCTION FKeyOnlyS 0 
DECLARE FUNCTION GPSLatLongS (LLS) 
DECLARE FUNCTION IntegerTIME& (TS) 
DECLARE FUNCTION KeyCode% (AS) 
DECLARE FUNCTION NameDATES (NS, DS) 


’ Decode the external box time into hh:mm:ss. 

' Decode the A/D converter trigger time delay 
’ Calculates the byte pointer in the active file. 

’ Selects AccurateTime or PcTime for display. 

’ Color planes for waterfall display. 

’ Select a function key from the menu. 

’ Finds latitude and longitude from a GPS data JUe. 

’ Converts hours, minutes, and seconds to decimal seconds. 

9 Return keyboard scancode. 

’ Insert the mission name and date into a merged ROWS file . 
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PREROWS2.BAS (cont) 


DECLARE FUNCTION NcwHEADERS 0 
DECLARE FUNCTION PcClockTimeS (AS) 
DECLARE FUNCTION PcTimeS (A&) 
DECLARE FUNCTION PitchRoll! (AS) 
DECLARE FUNCTION TimeGPS& (DS) 
DECLARE FUNCTION RotationAngle! (AS) 
DECLARE FUNCTION ShaftAngleS 0 


’ Constructs a new ROWS header. 

’ Decode the pc real-time clock. 

’ Decode the pc tick time into hh:mm:ss.ss 
* Convert aircrqfl pitch and roll to decimal degrees . 
’ Find time from a GPS file . 

’ Decode the shaft angle of rotation. 

' Corrects the raw shaft angle. 


DIM 

DIM 

DIM 

DIM 

DIM 

DIM 

DIM 

DIM 


SHARED ColorLevel(0 TO 255) AS INTEGER 

SHARED FiieSource AS STRING • 3 ’ DOS or EXABYTE? 

SHARED Headei(2, 20) AS INTEGER * Col 1, type; col 2, length 

SHARED IERR AS INTEGER ’ Contains the error code returned from the most recent EXABYTE call. 

SHARED Level(0 TO 14) AS INTEGER 

SHARED NewRecord AS STRING • 1024 ’ This is THE ROWS record 

SHARED RowOffSet AS INTEGER, ColOffSet AS INTEGER 

SHARED SenseS tatus(0 TO 25) AS INTEGER ’ Contains the status of the EXABYTE after the most recent operation. 


DIM SHARED Active AS FileS tats 
DIM SHARED Dos AS FileStats 
DIM SHARED Exb AS FileStats 


’ Three variable have the data structure FileStats . Active contains the 
’ information from the currently active file, variables Dos and Exb contain 
’ the information from whichever (or both) file(s) are open. 


DIM SHARED Dta AS Dta ’ Define the Dta variable to be the structure Dta. 

DIM SHARED NoData AS STRING • 2 
DIM SHARED NoDataLong AS STRING • 4 


CONST TicksPerSec = 18.20648# 


’ Computer clock ticks per second. 


CONST BlankLineS = ■ 

NoDataS = MKI$(-9999) 
NoDataLongS = MKLS (-999999999) 


’ -9999 indicates no data in 2 byte data string. 

’ -999999999 indicates no data in a four byte data string. 


CONST HeaderLength% = 50 
CONST ReadDriveId% = 5 
CONST WriteDriveId% = 0 


’ Length of record header. 

* SCSn ID for drive being read from. 

* SCSI! ID for drive being written to. 


SCREEN 0 
CLS 

ResetActiveSlats 

ResetDosStats 

ResetExbStats 

ResetDta 


FileSourceS = " " 


DO 


FirstMenu 

LOOP 

END 


BadFileName: 


Message 17, "ILLEGAL FILENAME or 
Message 18, "File doesn’t exist." 
RESUME NEXT 
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•••• BEGIN SUBROUTINES **•* 


FUNCTION ADTriggerDelay& 


' Decodes the time delay between the radar mainbang and the triggering 
’ of the A/D converter. The result is given in meters below the aircraft. 

* The delay is affected in hardware by counting down in a 16 bit 

* register from FFFF hex. Including the bias mentioned below, the 
’ conversion of the delay to range can be done by representing the 
’ integer as a 4 byte string and then converting it to a signed 

’ long integer as shown below. 

* CALLed by: DecodeRecord 

FUNCTION ADTriggerDelay* (BytesS) 


Bias% = 74! ’ System induced bias to time delay (up through 7/25/91) 

IF Active.Record = 1 AND FileSourceS = *DOS* THEN 
ADTriggerDelay* = 0 
ELSE 

Count* = CVL(Bytes$ + CHRS(O) + CHRS(0» 

ADTri ggerDelay* = 50 * .15 • (65535 - Count* - Bias%) 

END IF 

END FUNCTION 
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SUB AscIIPitchRoD 

* Convert time, and aircraft pitch, and roll in a ROWS EXABYTE file to ASCII values. Time is formatted as 

■ hh:mm:ss and pitch and roll are formatted as decimal degrees. Since the ROWS records data 100 times per second, 

■ the pitch and roll are averaged over NAve% = 100 records. The output is to a DOS file at one record per second. 

’ CALLed by ExbPre Processing 

f 

SUB AscIIPitchRoll 


DIM StartRecord AS LONG, StopRecord AS LONG, Skip AS LONG 

NAve% = 100 * Number of records to average. 

Active = Exb 


PresentFile 

Message 17, "Enter the name of the output file" 
OpenNcwFile FileNameS 

IF LEN(FileNameS) = 0 THEN 
EXIT SUB 
ELSE 

OPEN FileNameS FOR OUTPUT AS #1 
END IF 

LOCATE 18, 1: PRINT BlankLineS 
Dos.FileName = FileNameS 
Active.FileName = Exb.FileName 
RecordN 
Update 

StartRecord& = Active. Record - 1 
DO 

LOCATE 18, 1: PRINT BlankUneS 
StopRecord = 0 

Message 17, "Enter the last record number to copy" 
EnterRecord StopRecord 
IF StopRecord < StartRecord& THEN 
Message 15, "ILLEGAL ENTRY" 

SLEEP 1 

LOCATE 15, 1: PRINT BlankLineS 
END IF 

LOOP WHILE StopRecord < StartRecord& 

r» nuuuuuu UUUU If a if If JXlXjiJi irnJIJllt 

rormau as JFffrFff ffnwn.WWWn 

PitchSum& = 0 
RollSum& = 0 

AngleConvert! = 360 / (1! * NAve% * (2 A 14)) 
k% = NAve% - 1 


DO WHILE Active.Record <= StopRecord 


FOR i = Active.Record TO Active.Record + k% 

CALLS XRCHR(NewRecord, 1, IERR9&) 

Active.Record = Active.Record + 1 

RollS um& = RollSum& + CVL(MIDS(NewRecord, 762, 2) + CHRS(0) + CHRS(0)) 
PitchSum& = PitchSum& + CVL(MIDS(NewRecord, 764, 2) + CHR$(0) + CHRS(0)) 
NEXT 

HrsS = HEXS(CVT(MIDS(NewRecord, 757, 1) + CHRS(0))) 

Min$ = HEX$(CVI(MID$(NewRecord, 758, 1) + CHRS(O))) 

Sec$ = HEXS(CVI(MID$(NewRecord, 759, 1) + CHR$(0))) 

Seconds^ = VAL(Hrs$) • 3600 + VAL(Min$) • 60 + VAL(SecJ) 
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SUB AsdlPitchRoD (coot) 


PitchAve! = 120! - AngleConvert! * PitchSum& 

RollAve! = 120! - AngleConvert! • RollSum& 

PRINT #1, USING FonnatS; SecondsA; PitchAve!; RollAve! 

PitchSum& = 0 
RollS um& = 0 

IF (IERR% AND 128) OR (IERR% AND 64) OR (IERR% AND 8) THEN EXIT DO 

DeoodeRecord 

Update 

LOOP 

Active.ByteLoc = ByteLoc 
DecodeRccord 
CLOSE #1 
Update 

END SUB 


SUB BegEndBytc 

* Allows user input of the starting sample (byte) number of the radar waveform for use with waveform plotting. 

' The waveform has a total of 700 points on a single returned waveform. 

’ CALLed by: PlotRadReturn; Waterfall 

SUB BegEndByte (WfStart%, WfStop%) 

CLS 

LOCATE 13, 16 

PRINT "Enter the beginning and ending byte numbers (separated by a" 

LOCATE 14, 16 

PRINT "comma) that you want to plot from each radar waveform," 

LOCATE 15, 30 

INPUT ; WfStart%, WfStop% 

CLS 

END SUB 


’ CALLed by: DosFde 


SUB Bold 


’ This routine probably doesn V need to be used , or , if it is, it should 
' be used more consistently . 

SUB Blank 

Message 17, "This function key does nothing." 

END SUB 
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FUNCTION ByteLocA 

' Calculates the byte location of the readhead (EXABYTE) or file 
' pointer (DOS file) in an open File. 

’ CALLed by: ASCUPitchRoG; CopyExbToDos; DosPrt Processing; 

9 ExbPrtProcessing; ExbTapcLog; OpenExistingFUe; 

StepBackwards; Waterfall 

» 

FUNCTION ByteLocA 

ByteLoc = (Active. Record - 1) • 1024 + 1 
END FUNCTION 


SUB ChcckExbSUtus 

’ CALLed by: PlotRadRetura 

F 

SUB CbeckExbStatus (SS%) 

SELECT CASE SS% 

CASE 128 

VIEW PRINT 
LOCATE 25, 28 

PRINT "END OF FILE Active.FIleNo 

IDLE 

EXIT SUB 

CASE 8 

VIEW PRINT 
LOCATE 25, 28 

PRINT "End of data. No EOF on last file." 

CASE 2 
CLS 

PRINT "EXABYTE NOT READY" 

IDLE 
EXIT SUB 

CASE 0 

CASE ELSE 

PRINT "SenseS tatus(2) = SS% 

IDLE 

END SELECT 

END SUB 
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FUNCTION CIockTimeS 


’ Returns the time of the present file record. This function is used 
’ throughout the program so that any change in byte locations for the 
’ system time will only require an addition here and the addition of an 

* appropriate subroutine that does the actual time determination. 

* CALLed by: CopyExbToDos; ExbPreProcessing; ExbTapeLog; 

* FileN; GPSDisplay; MERGE; 

* OpenExistingFile; ParameterDisplay; PcCiockTime; 

* PresentFile; RecordN; Update; 

* Waterfall 
» 

FUNCTION CIockTimeS 
’ CIockTimeS = Dta.AccurateTime 

’ ’‘Accurate" Time was recorded pre-August 1991 

f CIockTimeS = Dta.TickTime 

* TickTime is taken from the pc internal tick counter 

’ that counts the number of ticks since the previous 

* midnight A standard pc has 18.20648 ticks per 

’ second 

CIockTimeS = Dta.TrueTime 

’ TrueTtme is taken from the internal pc real-time 

1 clock. 

END FUNCTION 
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SUB Col or Levels 

* Define tbe color levels assigned to the 8 bit integer data values for waterfall display color coding. 

» 

1 CALLed by: Waterfall 

t 

SUB ColorLevels 

Levels ColorSeIection% ’ Select tbe color levels 

FOR i = 0 TO 255 
SELECT CASE i 

CASE 0 TO Level%(0) 


ColorLevel(i) = 0 

’BLACK 

CASE Leve!%(0) + 1 TO Level%(l) 
ColorLevel(i) * 1 

’BLUE 

CASE Level%{l) + 1 TO Level%(2) 
ColorLevel(i) - 2 

’GREEN 

CASE Level%(2) + 1 TO Level%(3) 
ColorLevel(i) = 3 

’CYAN 

CASE Level %(3) + 1 TO Levei%(4) 
ColorLevel(i) = 4 

’RED 

CASE Level %(4) + 1 TO Level %<5) 
ColorLevel(i) = 5 

’MAGENTA 

CASE Level %(5) + 1 TO Level%(6) 
CoIorLevel(i) = 6 

’BROWN 

CASE Level %{6) + 1 TO Level%(7) 
ColorLevel(i) = 7 

’WHITE 

CASE Level%(7) + 1 TO Level%(8) 
ColorLevel(i) = 8 

’GRAY 

CASE Level %(8) + 1 TO Leve 1%(9) 
ColorLevel(i) = 9 

’LIGHT BLUE 

CASE Level %(9) + 1 TO Level%(10) 
ColorLevel(i) = 10 

’UGHT GREEN 

CASE Level%(10) + 1 TO Level%(ll) 
ColorLevel(i) = 11 

’LIGHT CYAN 

CASE Level%{ll) + 1 TO Level%(12) 
ColorLevel(i) = 12 

’UGHT RED 

CASE Level %( 12) + 1 TO Uvel%(13) 
ColorLevel(i) =13 

’UGHT MAGENTA 

CASE Level %( 13) + 1 TO Level%(14) 
ColorLevel(i) = 14 

’YELLOW 

CASE IS > Level %( 14) 
ColorLevel(i) = 15 

’BRIGHT WHITE 

END SELECT 



NEXT 
END SUB 
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FUNCTION ColorS dcctioD 

’ Allows user selection of which color level array to use for plotting a waterfall display. 

* 

’ CALLed by: ColorLevels 

p 

FUNCTION ColorSelectioo% 


MaxSelection! =6! 1 Defines the total number of color coded 

* arrays that have been defined in the 

* subroutine Levels. 

DO 


Message 17, "Which color selection do you want?" 
Message 18, "1 through" + STRS(MaxSelection!) 
k$ = INPUTS (1) 

C% = VAL(kS) 

LOOP WHILE C% > MaxSelection! AND C% < 1! 
ColorSefection% = VAL(k$) 

END FUNCTION 
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SUB CopyExbToDos 

9 Copy a sequence of records from an EXABYTE file to a DOS file. 

» 

1 CALLed by: ExbPreProcessing 

» 

’ [MODS.: 1/10/92; corrected read/write loop to copy all desired records, including the last one. 

* : 7/01/92; took out inline code to write records to the DOS file and put code in a subroutine.] 

9 

SUB CopyExbToDos 

DIM StartRecord AS LONG, StopRecord AS LONG, Skip AS LONG 

Active = Exb 
PresentFile 

Message 17, "Enter the name of the file you want to COPY to" 

OpenNewFile FileNameS 
FileNo% = FREEFILE 
IF LEN(FileName$) = 0 THEN 
EXIT SUB 
ELSE 

OPEN FileNameS FOR BINARY AS #F.leNo% 

END IF 

LOCATE 18, 1: PRINT BlankLineS 
Dos.FileName = FileNameS 
Active.FileName = Exb.FileName 
RecordN 

DO 

LOCATE 18, 1: PRINT BlankLineJ 
StopRecord = 0 

Message 17, "Enter the last record number to copy" 

EnterRecord StopRecord 
IF StopRecord < StartRecord& THEN 
Message 15, "ILLEGAL ENTRY" 

SLEEP 1 

LOCATE 15, 1: PRINT BlankLineS 
END IF 

LOOP WHILE StopRecord < StartRecord& 

DO WHILE Active.Record <= StopRecord + 1 
WriteRecord "DOS", FileNo% 

IF IERR% AND 128 THEN EXIT DO 
ReadRecord 
DecodeReoord 
Update 
LOOP 

Active.ByteLoc = ByteLoc 
Exb = Active 

Dos.TotalRecords = LOF(l) / 1024 
Dos.TEnd = ClockTimeS 
SEEK #FileNo%, 1 
FileSource$ = "DOS" 

ReadRecord 

DecodeRecord 

Dos.Record = 2 

Dos.TStart = CIockTimeS 

Dos.ByteLoc = (Dos.Record - 1) * 1024 + 1 

FileSource = "EXB" 

Active = Exb 

END SUB 
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[NEEDS WORK] At present this routine is not used. 

Define the type of data stored in each data type within a 1024 byte record. 


SUB Data Types 


' CALLed by: [not yet used] 

f 

SUB DataTypes 

DIM DataType$(0 TO 99) 

DataTypeS(O) = "HEADER" 

DataTypeS(l) = "UNPROCESSED RADAR RETURN" 

DataType$(2) = "COMPUTER CLOCK ’TICKS* SINCE MIDNIGHT" 
DataType$(3) = "DIGITIZER TIME DELAY FROM RADAR FIRING" 
DataType$(4) = "EXTERNAL CLOCK TIME (high precision)" 
DataType$(5) = "AIRCRAFT PITCH ANGLE" 

DataType$(6) = "AIRCRAFT ROLL ANGLE" 

DataType$(7) = "ANTENNA SHAFT ’ANGLE*" 

DataType$(8) = "’CORRECTED* ANTENNA SHAFT ’ANGLE’" 
DataType$(9) = "OBSERVER LATITUDE" 

DataTypeS(lO) = "OBSERVER LONGITUDE* 

DataTypeS(ll) = "INS DATA" 

DataType$(12) = "" 

DataType$(13) = "" 

DataType$(14) * "" 

DataTypeJ(15) = "" 

DataType$(16) = "* 

FOR i = 1 TO 16 
PRINT DataTypeS(i) 

NEXT i 
SLEEP 5 
END SUB 
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SUB DecodeHeader 


’ Decode the ROWS header record into a 2xn dimensional integer array, where n is the number of types designated 
1 in the header, column 1 designates the data type, and column 2 gives the length of the data type in bytes. 

’ CALLed by: [not yet used] 

SUB DecodeHeader (H$) 

FOR j = 0 TO 1 

FOR k = j + 2 A j TO LEN(HS) - 2 STEP 4 
Headl% = CVI(MID$(H$, k, 1) + CHRS(O)) 

Head2% = CVI(CHRS(0) + MIDS(HS, k + 1, 1)) 

Header(j + 1, (k + 3 - 2 * j) / 4) = Headl% + Head2% 

NEXT k 
NEXT j 

END SUB 
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SUB DecodeRecord 


’ Decode ROWS 1024 byte data record into its various variables. The data is contained in NewRecordS which 

’ is obtained from the subroutine ReadRecord. 

v 

* CALLcd by: AscIIPitchRoll; CopyExbToDos; DosPre Processing 

’ ExbPrePTOcessing; ExbTapeLog; FileN 

* OpenExistingFile; RecordN; StepBackwards 

* StepForwards; Waterfall 

9 

SUB DecodeRecord 

’ Header : bytes 1 to 50 

Dta. Header = MID$(NewRecord, 1, 50) 

* Radar return : bytes 51 to 750 

Dta.Radar = MIDS(NewRecord, 51 , 700) 

* p.c. internal tick counter time : bytes 751 to 754 

Dta.TickTune = PcTime$(CVL(MlD$(NewRecord, 751, 4))) 

’ AD trigger : bytes 755 to 756 

Dta.TriggerDelay = ADTriggerDe!ay&(MID$(NewRecord, 755, 2)) 

f p.c. realtime clock time : bytes 757 to 758 

Dta.TnieTime = PcClockTime$(MID$(NewRecord, 757, 3)) 

* External "black box* lime used until August 1991 
Dta.AccurateTime = AccurateTime$(MID$(NewReoord, 757, 5)) 

f aircraft roll from INS : bytes 762 to 763 

Dta.Roli = PitchRoll!(MID$(NewRccord, 762, 2)) 

’ aircraft pitch from INS : bytes 764 to 765 

Dta.Pitch a PitchRoIl !(MID${NewRecord, 764, 2)) 

* antenna pointing angle : bytes 767 to 768 

Dta.ShaftAngle = RotationAngIe!(MID$(NewRecord, 767, 2)) 

END SUB 


SUB DfnKy 

* CALLed by: FkSet 

SUB DfnKy (Kt$) ’ Assign labels to the Function keys. 

FOR i = 1 TO 10 

KEY i, MID$(Kt$, 7 * (i - 1) + 1, 7) 

NEXT i 
KEY ON 

END SUB 
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* Top menu for selecting preprocessing functions of a DOS file. 


SUB DosFile 


’ CALLed by: FirstMenu 

i 

SUB DosFile 

DIM KeyTextS(lO) 

FileSourceS = "DOS" 

Active = Dos 

DO 


KeyText$(l) = "MainMnu": 
KeyText$(3) = "PreProc": 
KeyText$(5) = " 
KeyText$(7) = " 
KeyTexl$(9) = "ClsFlle": 

FkSet KeyTextSO 

CLS 


KeyTextS(2) = 
KeyText$(4) r 
KeyText$(6) = 
KeyTextS(8) = 
KeyTextS(lO) = 


PresentFile 


Message 17, "Select some sort of DOS activity" 

FkCaseS = FKeyOnlyS 

SELECT CASE FkCaseS 

CASE "MainMnu" * Return to the main menu 

Dos = Active 
EXIT SUB 


CASE "OpnFile" 
OpenExistingFile 
CASE " 


Blank 


CASE " " 


IF FREEFILE > 1 THEN 
Blank 
ELSE 
NoFile 
END IF 


CASE" " 


IF FREEFILE > 1 THEN 
Blank 
ELSE 

Copy DosTo Dos 
END IF 


CASE "PreProc" 


"OpnFile" 

« n 


"Exit " 
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SUB DofiFBe (conL) 


IF FREEFILE > 1 THEN 
DosPreProcessi ng 
ELSE 
NoFile 
END IF 

CASE "ClsFile" 

ResetDosStats 

Active = Dos 

CASE "Exit " 

END 

END SELECT 
Dos = Active 
LOOP 
END SUB 
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SUB DosPre Processing 

Primary menu for selecting preprocessing operations to perform on a DOS file. 

f 

’ CALLed by: DosFUe 

» 

SUB DosPre Processing 
DIM KeyTextS(lO) 


Active = Dos 


DO 


KeyText$(l) = "DosMenu*: 
KeyText$(3) = "Rec #K 
KeyText $(5) = "WtrFall": 
KeyText$(7) = " 
KeyText$(9) = ■ *: 

FkSet KeyTextSO 

CLS 

PresentFiIe 


KeyTextS(2) = ■ * 

KeyText$(4) = " " 

KeyText$(6) = "DspData" 
KeyText$(8) r * 
KeyTextS(lO) = "Exit * 


* put some screen text here to explain some of the FKs 
Message 17, "Select some sort of ROWS preprocessing activity" 
FkCaseS = FKeyOnly$ 

SELECT CASE FkCase$ 

CASE "DosMenu" 

CASE " 


CASE "Rec #N " 

Record N 
ReadRecord 
DecodeRecord 
Active.ByteLoc = ByteLoc 

CASE "WtrFall" 

Waterfall 


CASE "DspData" 

PIotRadRetum 

CASE "Exit " 
END 

END SELECT 


Dos = Active 


LOOP UNTIL FkCase$ = "DosMenu" 
END SUB 
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SUB DriveReady 

* Test if EXB-8200 is ready to accept a new command; wait until previous read or write operation is finished. 

’ CALLed by: ExbReset; ExSPACE; MERGE 

* WriteRecord 

SUB DriveReady 
DO 

CALLS XR EADY (IERR%) 

LOOP WHILE IERR% <> 0 

END SUB 


* CALLed by: OpenEx isting File 

SUB EnlerFileName (FileNameS, ValidNameS) 

FileNameS = " 

ValidNameS = T" 

ON ERROR GOTO BadFiieName 
LOCATE 18, 35 
INPUT ; FileNameS 
FileNameS = UCASES (FileNameS) 

IF LTRIMS(Fi leNameS) = "" THEN EXIT SUB 
IF ERR <> 0 THEN FileNameS = ** 

OPEN FileNameS FOR BINARY AS #5 

SELECT CASE FileSourceS 

CASE "DOS" 

IF ERR <> 0 THEN 
ResetDosStats 
ValidNameS = "N" 

ELSE 

ValidROWSFile ValidNameS, 5! 

IF ValidNameS = "N" THEN ResetDosStats 
END IF 

CASE "EXB" 

IF ERR <> 0 THEN 
ValidNameS = "N" 

ELSE 

ResetDosStats 
END IF 

END SELECT 

ON ERROR GOTO 0 
CLOSE #5 

END SUB 


SUB EnterFUeName 
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’ Keyboard entry of record number at which processing will begin. 


SUB EoterRecord 


’ CALLed by: AscIIPitchRoQ; CopyExbToDos ; Records 

SUB EoterRecord (S&) 

DO 


NewRec& = 0 
LOCATE 18, 37 
INPUT ; NewRecA 

LOOP WHILE NewRecA <= 0 

SA = NewRecA 

END SUB 


’ CALLed by: FirstMenu 

SUB ExbFile ’ Operate on an EXABYTE tape file. 

DIM KeyText$(10) 

FtleSourceS = "EXB" 

Active = Exb 


CALLS XSENSE(SenseStatus(0), IERR%) 

IF (SenseS tatus(2) AND 64) = 0 THEN 
IF Active .TS tart = " " THEN 

* This condition only occurs if PREROWS is started from 
’ the top and the tape in not at LBOT. 

ExbRcset (ReadDriveId%) 

ResetExbStats 
Active = Exb 
END IF 
END IF 


KeyText$(l) = "MainMnu": 
KeyTextS(3) = " 

KeyText $(5) = "LogExb *: 
KeyText$(7) = "Merge 
KeyText$(9) = Tnitize": 


KeyTextS(2) = "PreProc" 
KeyTextS(4) = * " 

KeyText$(6) = ■ 
KeyText$(8) = " 
KeyTextS(lO) = "EXIT ■ 


FkSet KeyTextSQ 


CALLS XSENSE(SenseStatus(0), IERR%) 

IF (SenseS tatus(2) AND 6) THEN 

’ This condition only occurs if the tape deck door has 
’ been opened while this program is in or below this 
’ DO LOOP location. 

ResetExbStats 
Active = Exb 
END IF 


CLS 

PresentFile 


SUB ExbFile 
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SUB Exb File (coot) 

Message 17, "Select some sort of EXABYTE activity." 

FkCaseS = FKeyOnlyS 

SELECT CASE FkCaseS 

CASE "MainMnu" 1 FI 

EXIT SUB * Return to first menu 

CASE "PreProc" 

ExbPre Processing 
CASE" 

CASE "LogExb " 

ExbTapeLog 
CASE "Merge " 

MERGE 

CALLS SETTGT(ReadDriveId%, 0) 

EXIT SUB ’Return to first menu 

CASE "Initize" 

ExbReset (ReadDriveId%) 

ResetExbStats 
Active = Exb 

CASE "EXIT * 

END 

END SELECT 
Exb = Active 
LOOP 
END SUB 


’Produce a log of contiguous sequences 
’of records on an ExaByte tape. 
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’ CALLed by: ExbFile 

SUB ExbPrePro cessing 
DIM KeyTextS(lO) 

DO 

KeyText$(l) = "ExbMenu": KeyText$(2) = "File N " 

KeyTextS(3) = "Rec #N KeyTextS(4) = "CpyFile" 

KcyText$(5) = "WtrFall": KeyText$(6) = "DspData" 

KcyText$(7) = "PtchRol": KeyText$(8) = " 

KeyText$(9) = " KeyTextS(lO) = "Exit " 

FkSet KeyText$0 
CLS 

Active = Exb 
PrescntFilc 

Message 17, "Select some sort of ROWS preprocessing activity" 

FkCaseS = FKeyOnlyS 
SELECT CASE FkCaseS 

CASE "ExbMenu" ’ FI 

EXIT SUB 

CASE "File N " * F2 

FileN 

Active.FileName = RTRIM$( "Exabyte file # ") 4- STR$(Active.FileNo) 

ReadRecord 

DecodeReoord 

Active.ByteLoc = ByteLoc 

Active.TS tartS = ClockTimeS 


CASE "Rec #N " ’ F3 

Record N 

CASE "CpyFile" ’ F4 

CopyExbToDos 

CASE "WtrFall" ’ F 5 

Waterfall 

CASE "DspData" 1 F6 

PlolRadRetura 

CASE "PtchRol" ’ F7 

AscIIPitchRoll 
CASE " 


SUB Exb Preprocessing 
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SUB Exb Preprocessing (coot) 

CASE "Exit " ’ F10 

END 

END SELECT 

Exb = Active 
Update 

LOOP 

END SUB 


SUB ExbReset 

’ CALLed by: ExbFUe; MERGE 

SUB ExbReset (Id%) ’ Reset the EXABYTE tape deck. 

CONST RecSize% = 1024 
CLS 

Message 17, "RESETTING DRIVE- 
CALLS SETKnXId%, 0) 

CALLS XSMODE(0, RecSize%, 0, 0, 0, 0, 0, 5, 5, 0, IERR%) 

CALLS XRESETCIERR) 

DriveReady 

END SUB 
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’ SenseS tatus(2) error code definitions for EXABYTE drive. 


* CALLed by: PloiRadRetum 

» 

SUB ExbStatus (Sense5, SenseCode%) 

DIM Sense2(0 TO 15) AS STRING 
DIM Sense3 AS LONG 
DIM Sense 19(0 TO 7) AS STRING 
DIM Sense20(0 TO 7) AS STRING 
DIM Sense21(0 TO 3) AS STRING 


Sense 25(0) = "No sense data": 

Sense 25(1) = 

Sense2$(2) = "Not ready": 

Sense25(3) = 

Sense 25(4) = "Hardware error": 

Sense25(5) = 

Sense25(6) = "Unit attention": 

Sense 25(7) = 

Sense25(8) = "Check for blank tape": 

Sense 25(9) = 

Sense25(10) = "Aborted": 

Sense25(ll) 

Sense2$(12) = "Not used": 

Sense25(13) 

Sense2$(14) = "Not used": 

Sense25(l5) 

Sensel9$(0) * "Beginning of tape": 

Sensel95(l) 

Sensel9$(2) = "Tape motion error": 

Sensel95(3) 

Sense 19$(4) = "Media error": 
Sensel95(6) = "SCSI bus parity error" 
Sense 195(7) = "Reset since last status" 

Sense 195(5) 

Sense 205(0) = "Formatter error": 

Sense20$(l) : 

Sense20$(2) = "Media error": 

Sense205(3) : 


Sense20$(4) = "Error during filemark write" 
Sense205(5) = "Tape is write protected" 
Sense20$(6) = "Tape mark error detected" 
Sense20$(7) = "Transfer abort error" 

Sense21$(0) = "Write splice error, overshoot" 
Sense215(l) = "Write splice error, no gap track" 
Sense215(2) = "Physical end of tape" 

CALLS XS ENS E(S enseS tatus(0), IERR%) 

IF (SenseS tatus(0) AND 128) THEN 

IF (SenseS tatus(2) AND 1) THEN 


ELSEIF (SenseS tatus(2) AND 2) THEN 


ELSEIF (SenseS tatus(2) AND 4) THEN 


ELSEIF (SenseS tatus(2) AND 8) THEN 


"Not used" 

"Medium error" 

"Illegal request" 

"Data protect" 

* m 

= "Aborted command" 

= "Volume overflow" 

"Not used" 

"Tape not present" 

"Error counter overflow" 
"ExaByte buffer error" 


"Servo system error" 
"Under run error" 


ELSEIF (S enseS tatus(2) AND 16) THEN 



SUB ExbStatus (coot) 

ELSEIF (SenseS tat us(2) AND 32) THEN 

ELSEIF (SenseStatus(2) AND 64) THEN 

ELSEIF (SenseS tatus(2) AND 128) THEN 
END IF 

IF SenseS tatus(19) AND NOT 0 THEN 
IF (SenseStatus(i9) AND 1) THEN 

ELSEIF (SenseS tatus(l 9) AND 2) THEN 

ELSEIF (SenseS tatus( 19) AND 4) THEN 

ELSEIF (SenseS tatus(19) AND 8) THEN 

ELSEIF (SenseS tat us(l 9) AND 16) THEN 

ELSEIF (SenseStatus(19) AND 32) THEN 

ELSEIF (SenseS tat us(l 9) AND 64) THEN 

ELSEIF (SenseStatus(19) AND 128) THEN 

END IF 
END IF 

IF (SenseS tatus(20) AND NOT 0) THEN 
IF (SenseS tatus(20) AND 1) THEN 

ELSEIF (SenseS tat us(20) AND 2) THEN 
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SUB ExbStatus (coot) 

ELSEIF (SenseS tatus(20) AND 4) THEN 

ELSEIF (SenscS tatus(20) AND 8) THEN 

ELSEIF (SenseS Utus(20) AND 16) THEN 

ELSEIF (SenseS tat us(20) AND 32) THEN 
ELSEIF (SenseS tatus(20) AND 64) THEN 

ELSEIF (SenseS tatus(20) AND 128) THEN 

END IF 
END IF 

IF (SenseStatus(21) AND NOT 0) THEN 
IF (SenseS tatus(21) AND 1) THEN 

ELSEIF (SenseS tatus(21) AND 2) THEN 

ELSEIF (SenseStatus(21) AND 4) THEN 

END IF 
END IF 
ELSE 

Message 17, "ExaByte sense data invalid for last Call to ExaByte" 

END IF 
END SUB 
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Produce a log of an EXABYTE tape. The log will indicate all time gaps within each tape file, the total number 
* of records in each file, and the starting and stopping time of each file. 


SUB ExhTapeLog 


’ CALLed by: ExbFUe 

* 

SUB ExbTapeLog 

DIM NewName AS STRING • 1 

DIM BeginRecordTime AS STRING * II, EndingRecordTime AS STRING • 11 
DIM BeginRecordNumber AS LONG 
DIM TimeTicks(0 TO 1) AS LONG 

CONST RecordIncrement% = 100 
CONST RecordsPerSec = 100 

CONST RecsPerTick% = RecordsPerSec / TicksPerSec 

CONST TestTune = (1! * RecordIncrement% / RecsPerTick%) + RecsPerTick% 

NewNameS = "N" 

DO 

CLOSE #3 

Message 17, "Enter the NAME of the DOS file for the log output." 

LOCATE 18, 35 
INPUT ; FileLogS 
IF FileLogS = "" THEN EXIT SUB 
OPEN FileLogS FOR APPEND AS #3 

IF LOF(3) > 0 THEN 

Message 17, "WARNING, A FILE OF THE SAME NAME ALREADY EXISTS." 
Message 18, "Do you want to use a different Filename? (Y/N)" 

LOCATE 19, 35 

NewNameS = UCASE$(INPUTS(1)) 

END IF 

LOOP WHILE NewNameS = "Y" 

Rewind 
CLS 

Psl$ = "\ \ " 

DoOC - muuuuuu * 

L — TTTTTytTTTTT 

HeaderlS = "Start Time Stop Time Start Stop Number" 

Header2$ = " pc tick pc tick Rec # Rec # Rees" 

DO * Loop on EOF until EOD 

NonRecords% = 0 
Active.Record = 1 
Active.ByteLoc = 1 
BeginRecordNumber& = 1 
ReadRecord 
DecodeRecord 

BeginRecordTime = ClockTime$ 

Active.TStart = BeginRecordTime 

PRINT #3, 

PRINT #3, SPACE$(20) + "FILE NUMBER: Active.FileNo: PRINT 

PRINT SPACES(30) + "FILE NUMBER: Active.FileNo: PRINT 


*Print using format string for disk output 
’Print using format string for screen output 
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SUB ExbTapeLog (coot) 


PRINT #3, HeaderlS: PRINT #3, Header2S 

PRINT SPACES(IO) + HeaderlS: PRINT SPACES(IO) + Header2$ 

SaveUne = CSRLIN 
SaveCol = POS(O) 

DO ’ Loop on file until EOF 


RecordsMoved% = RecordIncrement% - 1 

DO ’ Check for time gap within record increment 

TimeTicksA(O) = CVL(MID$(NewRecord, 751, 4)) 

CALLS XSPACE(RecordsMoved%, IERR%) 

CALLS XSENSE(SenseStatus(0), IERR%) 

Active.Record = Active.Record + RecordsMoved% 

AtEOF% = SenseStatus(2) AND 128 
AtEOM% = SenseS tatus(2) AND 64 
AtEOD% = SenseSutus(2) AND 8 

IF AtEOF% OR AlEOM% OR AtEOD% THEN ’ EOF test. 

Active.Record = Active.Record - SenseS tatus(6) 

EXIT DO 
END IF 

ReadRecord 

DecodeRecord 

COLOR 7, 0: LOCATE 24, 15 
PRINT "PRESENT RECORD #: 

COLOR 4, 7: PRINT Active.Record - 1; 

COLOR 7, 0: PRINT " TIME:"; 

COLOR 4, 7: PRINT " " + ClockTimeS; 

COLOR 7, 0 

TimeTicks&(l) = CVL(MIDS(NewRecord, 751, 4)) 

DeltaT& = TimeTicks&(l) - TimeTicks&(0) 

LOOP WHILE (DeltaT& < TestTime) 

EndingRecordTime = PcTimeS(TimeTicks&(0)) 

ContinuousR coords = Active.Record - BeginRecordNumber& - RecordsMoved% 

PRINT #3, USING Psl$; BeginRecordTimeS; EndingRecordTimeS; 

PRINT #3, USING "###### BeginRecordNumber&; Active.Record - RecordsMoved% - 1; ContinuousRecords 

LOCATE SaveLine, SaveCol 
PRINT SPACES(IO); 

PRINT USING PslS; BeginRecordTimeS; EndingRecordTimeS; 

PRINT USING Ps2S; BeginReoordNumber&; Active.Record - RecordsMoved% - 1; ContinuousRecords 

BeginRecordTimeS = PcTime$(TimeTicks&(l)) 

BeginRecordNumber& = Active.Record - 1 

IF (AtEOF% + AtEOM% + AtEOD%) > 0 THEN EXIT DO 

LOOP 


Active.TEnd = PcTimeS(TimeTicks&(l)) 
PRINT #3, SPACES(IO); "End of file." 


’ClockTimeS 
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SUB ExbTapeLog (coot) 

PRINT #3, "Start Time: Active.TStart; " Slop time: Active.TEnd 

PRINT #3, "Total Records:*; Active.Record 

PRINT SPACES(IO); "End of file." 

PRINT "Start Time: Active.TStart; " Stop time: Active.TEnd 

PRINT "Total Records:"; Active.Record 

CALLS XSPACE(L IERR%) 

Active.FileNo = Active.FileNo + 1 

LOOP WHILE (IERR% AND 8!) = 0 

PRINT #3, "END OF DATA." 

CLOSE #3 

Active.FileNo = Active.FileNo - I 

Active.FileName = RTRIM$( "Exabyte file # ") + STR$( Active.FileNo) 

Active.ByteLoc = ByteLoc 
Active.TEnd = ClockTimeS 
Active.TotalRecords = Active.Record 

PRINT : PRINT "PRESS ANY KEY TO CONTINUE": WaitS = INPUTS (1) 

END SUB 
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’ CALLedby: 


ExbP reprocessing 


SUB FUcN 


SUB FileN 
DO 

CLS 

Presen tFile 

Message 17, "Enter the number of the file you want to process." 

LOCATE 18, 35 
INPUT ; NewFileNo% 

IF NewFiIeNo% = 0 THEN EXIT SUB 
LOOP WHILE NewFileNo% < 0 

SkipFile% = NewFiIcNo% - Active.FileNo 

SELECT CASE NewFileNo% 

CASE IS = Active.FileNo 

CASE IS > Active.FileNo 

DO WHILE SkipFile% > 0 

ReadRecord ’ Create sense data to test for EOD 

IF IERR% AND 8 THEN 1 If EOD. 

Text$ = "EOD reached; tape set to beginning of last file." 

Message 15, TextS 
CALLS XSKIPF(-2, IERR%) 

CALLS XSKIPF(1, IERR%) 

EXIT DO 

ELSEIF (IERR% AND 128) <> 0 THEN 
CALLS XSKIPF(-1, IERR%) 

ELSE 

IF Active.FileNo = 0 THEN SkipFile% = NewFileNo% - 1 
CALLS XSKIPF(1, IERR%) 

END IF 

SkipFile% = SkipFile% - 1! 

LOOP 

CASE IS < Active.FileNo 

IF NewFileNo% = 1 THEN 
CALLS XREWND(IERR%) 

ELSE 

CALLS XSKIPF(SkipFi!e% - 1, IERR%) 

CALLS XSKIPF(1, IERR%) 

END IF 

SltipFlle% = 0 

END SELECT 

ResetExbStats 

Active = Exb 

DecodeRecord 

Active.TStart = ClockTimeS 

Active.FileNo = NewFileNo% - SkipFile% 

END SUB 
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SUB FileOpen 

* CALLed by: OpenExistingFUe 

SUB FileOpen (CloselS) 

CloselS = T" 

IF FREEFILE <> 1 THEN 
CLS 

Message 17, RTRIM$(Active.FiIeName) + " is presently open" 

Message 19, "Do you want to open a different file (Y/N)?" 

DO 

Close 1$ = UCASES(INPUTS(1)) 

LOOP WHILE CloselS <> "Y" AND CloselS <> "N" 

IF CloselS * "Y" THEN 
ResetDosStats 
Active = Dos 
END IF 

END IF 

END SUB 
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CALLedby: 


MAIN 


SUB FirstMcnu 


SUB FirstMenu * •••• initial program menu. 

DIM KeyText$(10) 


KeyText$(2) = "DOS FILE” 
KcyTexl$(4) = * 
KeyTexl$(6) = ■ 
KeyTextS(S) = ■ 
KeyTextS(lO) = "EXIT ■ 


CLS 

PresentRle 
LOCATE 14, 18 

PRINT "This program is used to perform preprocessing and" 

LOCATE 15, 18 

PRINT "low level processing on ROWS data files." 

LOCATE 20, 20 

PRINT "PRESS THE FUNCTION KEY INDICATING THE SOURCE" 
LOCATE 21, 20 

PRINT "OF THE ROWS DATA FILE YOU WANT TO PROCESS." 
FkCaseS = FKeyOnlyS 

SELECT CASE FkCaseS 

CASE "DOSFILE" * F2 

DosFile 

CASE "EXBFILE" 1 F3 

ExbFile 

CASE "VERSION" ’ F9 

Version 

CASE "EXIT " ’ F10 

END 

END SELECT 
LOOP 
END SUB 


KeyTextS(l) = " 
KeyText$(3) = "EXBFILE": 
KeyText$(5) = * 
KeyText$(7) = * 
KeyTextS(9) = "VERSION": 

FkSet KeyTextSO 
FkCaseS = "" 

FileSourceS = " " 

ResetActiveStats 

ResetDta 
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’ CALLed by: DosFde; DosP reprocessing ; ExbFde 

9 ExbP reProcessing; FirstMenu 

FUNCTION FKeyOnlyS 

DO 


FUNCTION FKeyOnlyS 


k$ = *" 
CharS = " 


DO 

CharS = INKEYS 
LOOP UNTIL CharS <> " 

DO UNTIL LEN(CbarS) = 0 
kS = kS + CharS 
CharS = INKEYS 
LOOP 

k$ = kS + CharS 
IF LEN(kS) <> 7 THEN BEEP 
LOOP UNTIL LEN(kS) = 7 
FKeyOnlyS = kS 
END FUNCTION 


* CALLed by : 


DosFde; DosPreProcessing; ExbFile; 

ExbP reprocessing; FirstMenu 


SUB FkSet (KeysSQ) 


SUB FkSet 


KtS = w " 


FOR i = 1 TO 10 

KtS = KtS + KeysS(i) 
NEXT 

DfnKy KtS 

END SUB 
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SUB GPSDispUy 

’ CALLed by: ParameterDispUty 

SUB GPSDispUy (LatLongS) 

RowOffSet% = 18 
CoIOffSet% = 45 

COLOR 3 

LOCATE RowOffSet%, CoIOffSet% - 1 

PRINT CHR$(201); STRING$(25, CHRS(205)); CHRS(187) 

FOR i = 0 TO 4 

LOCATE RowOffSct% + i + 1, ColOffSet% - 1: PRINT CHR$(186) 

LOCATE RowOffSet% + i + 1, ColOffSet% + 25: PRINT CHR$(186) 

NEXT 

LOCATE RowOffSet*. + 6, ColOffSet% - 1 

PRINT CHRS(200); STRINGS(25, CHR$(205)); CHR5(188) 

COLOR 7: LOCATE RowOffSet% + 1, ColOffSet% + 4 
PRINT "GPS location at"; 

LOCATE RowOffSct% + 2, ColOffSel% + 8 
PRINT ClockTimcJ 

COLOR 4: LOCATE RowOffSet% + 1, ColOffSet% + 7 

LOCATE RowOffSct + 4, ColOfESet% + 3 
COLOR 10 

PRINT "LATITUDE : 

LOCATE RowOffSct + 5, ColOffSet*. + 3 
PRINT "LONGITUDE : "; 

PresentLat# = CVL(MlD$(LatLongS l 1, 4)) / 10000 
PresentLong# = CVL(MID$(LatLong$, 5, 4)) / 10000 

IF PresentLong# o *99999.9999# THEN 

LOCATE RowOffSct + 5, ColOffSet% + 15 
PRINT USING "+##.####"; PresentLong# 

END IF 

IF PresentLat# o -99999.9999# THEN 

LOCATE RowOffSet + 4, ColOffSet% + 15 
PRINT USING "+##.####"; PresentLat# 

END IF 

COLOR 15 

END SUB 
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FUNCTION GPSLatLoogS 

f Strips latitude and longitude from GPS records, converts them to long integer string variables. 

* CALLed by: MergeGPS 

FUNCTION GPSLaiLongS (LatLongS) 

Start%= 1 
LatPos% = 1 
DO UNTIL Start% = 3 

LatPos96 = INSTR(LatPos%, LatLongS, 

Start% = Start% + 1 
LOOP 

Lat# = VAL(MIDS (LatLongS, LatPos%, 2)) + (VAL(MID$ (Lat LongS, LatPos% + 2, 7))) / 60 
Log# = -1 * (VAL(MID$(LatLong$, LatPos% + 12, 3)) + (VAL(MlDS(Lat LongS, LatPos% + 15, 7))) / 60!) 

Lat& = Lat# • 10 A 4 
Lng& = Lag# * 10 A 4 

GPSLatLongS = MKL$(Ut&) + MKLS(Lag&) 

END FUNCTION 


+ 1 


’ Skip first two comma delimited fields. 
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SUB Hdp2 

’ CALLed by: PlotRadReturn 

f 

SUB He!p2 

LOCATE 27, 1: COLOR 12 

PRINT "[ALT-F] Continuous forward. [F] forward 1 record."; "" 

IF FileSourceS = "DOS" THEN 
LOCATE 28, 1 

PRINT "[ALT-B] Continuous backward. [B] backward 1 record." 

END IF 

PRINT "ESC - exit" 

COLOR 15 

END SUB 


SUB IDLE 

’ CALLed by: CheckExbStatus; MERGE ; Version 

SUB IDLE 

Message 22, "SYSTEM SLEEPING." 

Message 23, "HIT ANY KEY TO CONTINUE." 

DO: k$ = INKEYS: LOOP WHILE kS o "" 

DO: kS = INKEYS: LOOP WHILE kS = "" 

END SUB 


SUB IFGains 

’ Reads the IF gains and corresponding times of gain changes and converts them into long 
’ integers in a two dimensional array. 

1 CALLED by: INFO FILE 

SUB IFGains (FileNo%, TTo&, GT&O) 

DIM IfGain(lOO) AS STRING 

NumberGains% = 0 

DO ' Read gain table. 100 gain changes max. 

NumberGains% = NumberGains% + 1 

LINE INPUT #FileNo%, IfGain(NumberGains%) 

IF NumberGains% > 100 THEN 
CLS 

PRINT "Too many IF gain changes, input truncated.” 

EXIT DO 
END IF 

LOOP UNTIL EOF(FileNo%) 


* Convert gain string to integer gain and time of gain change. 

FOR j = 1 TO NumberGains% 

GainS = LTRIMS(MIDS(IfGain(j), 10)) 

TimeGainS = RTRIM$(LTRIMS(MIDS(IfGain(j), 1, 9))) 

GT&(j, 1) = VAL(LEFrS(GainS, INSTR(GainS, " ") - 1)) 

’ Strip time from GainS and convert to integer seconds since midnight of airplane takeoff. 

GT&(j, 2) = IntegerTIME&(TimeGain$) 

IF GT&G, 2) < TTo& THEN GT&(j, 2) = GT&(j, 2) + 86400 
NEXT 

END SUB 
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’ Read the information file from disk and reformat the data. 


SUB INFO FILE 


CALLedby: MERGE 

t 

SUB INFOFILE (MNS, MD$, MT&, GainTime&O, IFNS, GFNS, ITL!) 

DO 

ON ERROR GOTO BadFileName 
MergelnfoFileS * ” 

ValidS = "Y" 

LOCATE 18, 1: PRINT BlankLineS 

Message 15, "Enter the NAME of the MERGE information file" 

LOCATE 18, 35 

INPUT ; MergelnfoFileS 

MergelnfoFileS = UCASES(MergelnfoFileS) 

IF LTRIMS(MergelnfoFileS) = "" THEN 

MNS = MD$ = MT& = 0. IFNS * GFNS = ITL! = 0 
EXIT SUB 
END IF 

FileNofc = 2 + FREEFILE 

OPEN MergelnfoFileS FOR INPUT AS #FileNo% 

IF ERR <> 0 THEN 
MergelnfoFileS = "" 

ValidS = "N" 

END IF 

LOOP WHILE ValidS = "N" 

ON ERROR GOTO 0 

LINE INPUT #FileNo%, MNS 
LINE INPUT #FileNo%, MDS 
LINE INPUT #FileNo%, MTS 
LINE INPUT #FileNo%, IFNS 
UNE INPUT #FileNo%, GFNS 
LINE INPUT #FileNo%, ITLS 


MT& = IntegerTIME&(RTRIMS(LTRIMS(MIDS(MTS, 1, 10)))) 

’ Read IF gain table; save in 2-D array with first column 
’ containing the gains and the second column the times. 

CALL IFGains(FtleNo%, MT&, GainTime&O) 

CLOSE #FileNo% 

IFNS = M1DS(IFN$, 1, INSTR(IFN$, "")-!) 

GFNS = MIDS(GFNS, 1, INSTR(GFNS, " ") - 1) 

ITL! = VAL(ITL$) 


' Mission name 
’ Mission date 

1 Mission takeoff time (UTC) 

* INS data file name 
’ GPS data file name 
’ INS time lag wrt ROWS data 

’ Convert mission starting time from string to long integer. 


END SUB 
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FUNCTION IntegcrTIME& 

’ CALLed by: IFGains; INFOFILE; MERGE 

FUNCTION IntegerTIMEA (T$) 

Hr& = VAL(LTRIM$(MIDS(T$, 1, INSTR(T$, - 1))) 

Min& = VAL(MIDS(T$, INSTR(TS, V) + 1, 2)) 

Sec& = 0 
L% = LEN(TS) 

IF L% > 6 THEN 

Sec& = VAL(MID$(TS, L% - 1)) 

END IF 

IntegerTTMEA = 3600 * Hr& + 60 • Min& + Sec& 

END FUNCTION 


’ General keyboard scan code interpreter. For ALT keys add 1000. 


FUNCTION Key Code % 


’ CALLed by: PlotRadReturn; Waterfall 

FUNCTION KeyCode% (kS) ’ [11/7/91] 

IF LEN(k$) = 1 THEN 

KeyCodeft = ASC(UCASE$(kJ)) 

ELSEIF LEN(kS) = 2 THEN 

KeyCode% = ASC(RIGHTS(k$, 1)) + 1000 
END IF 

END FUNCTION 


SUB Keystroke 

1 CALLed by: StepBackwards 

SUB Keystroke (C%) 

k$ = INKEYS 

IF LEN(kS) = 1 THEN 

C2% = ASC(UCASES(kS)) 

IF C2% = 70 OR C2% = 66 OR C2% = 27 THEN 
C% = C2% 

END IF 

ELSEIF LEN(kS) = 2 THEN ’ ALT keystroke 

C2% = ASC(RIGHTS(k$, 1)) 

IF C2% = 48 OR C2% = 33 THEN 
C% = C2% 

END IF 
END IF 

END SUB 
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SUB Levels 


* Set the color levels for the waterfall display. 
1 CALLed by: ColorLevds 

i 

SUB Levels (LevelChoice%) 

SELECT CASE LeveIChoice% 


CASE l! 

Level 96(0) = 8: Level96(l) = 14: Level%(2) = 16: Level%(3) = 18 
Level 96(4) = 21: Level96(5) = 24: Level96(6) = 26: Level%(7) = 29 
Level 96(8) = 32: Level96(9) = 37; Level96(i0) = 42: Leve!96(U) = 48 
Level 96(12) = 56: Leve 196(13) = 63: Level%(14) = 70 

CASE 2! 

Level 96(0) = 9: Level%(l) = 11: Level%(2) = 13: Level%(3) = 15 
Level 96(4) = 17: Level 96(5) = 19: Level96(6) = 21: Level96(7) = 23 
Level 96(8) = 25: Level96(9) = 27: Level 96(10) = 29: Level96(ll) = 31 
Level 96(12) = 33: Level96(13) = 35: Level96(14) = 50 

CASE 3! 


Level 96(0) = 10: Level9S(l) = 11: Level96(2) = 12: Level96(3) = 13 
Level 96(4) = 14: Level96(5) = 15: Level96(6) = 16: Uvel96(7) = 17 
Level 96(8) = 18: Level96{9) = 20: Level96(10) = 22: LeveI96(ll) = 24 
Level 96(12) = 26: Level96(13) = 40: Level%(14) = 60 

CASE 4! 


Level 96(0) = 10: Level96(l) = 14: Level96(2) = 16: Level96(3) = 18 
Level 96(4) = 20: Level96(5) = 22: Level96(6) = 24: Level96(7) = 26 
Level 96(8) = 28: Level 96(9) = 30: Leve!96(10) = 33: Level96(ll) = 35 
Level 96(12) = 45: Level96(13) = 55: Leve!96(14) = 80 

CASE 5! 


Level 96(0) = 15: Level96(l) = 30: Level96(2) = 50: Level%<3) = 60 
Level 96(4) = 70: Level96(5) = 80: Level96(6) = 85: Level96(7) = 90 
Level 96(8) = 95: Level96(9) = 100: LeveI96(10) = 110: Level96(ll) = 120 
Level 96(12) = 130: Level96(13) = 140: Level96(14) = 220 

CASE 6! 


Level96(0) = 10: Level96(l) = 12: Level%(2) = 14: Level96(3) = 16 
Level96(4) = 18: Level 96(5) = 20: LeveI96(6) = 23: Level%(7) = 27 
Level96(8) = 30: Level96(9) = 35: Level96(10) = 40: Levet96(ll) = 45 
Level 96(1 2) = 50: Level96(13) = 60: Level96(14) = 75 

END SELECT 


END SUB 
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SUB MERGE 

’ Merge GPS, INS, and IF gain change data located in pc files with an EXABYTE ROWS file and save the merged 
’ file on a second EXABYTE. Certain errors in the raw data relating to the pc real-time clock and the antenna 
’ shaft angle encoder are adjusted. 

’ CALLed by; ExbFUe 

t 

SUB MERGE 

DIM GainTime(100, 2) AS LONG 
StartTime = TIMER 

INFO FILE MissionNameS, MissionDateS, MissionTimeA, GainTimeA(), InsFileNameS, GpsFileNameS, InsTimeLag! 

IF InsFileNameS <> " THEN 
InsFile% = FREEFILE 

OPEN InsFileNameS FOR BINARY AS #InsFile% 

InsDataS = INPUTS(44, #InsFile%) 

InsTimeA = CVL(MID$ (InsDataS, 1, 4)) / TicksPerSec + VAL(InsTimeLag$) 

ELSE 

InsTimeA = -1 
END IF 

IF GpsFileNameS <> "" THEN 
GpsFile% = FREEFILE 

OPEN GpsFileNameS FOR INPUT AS #GpsFtie% 

LINE INPUT #GpsFile%, GpsDataS 
GpsTimeA = TimeGPSA(GpsDataS) 

ELSE 

GpsTimeA = -1 
END IF 

CALL STARTINGTIME(StartTimeA, MissionTimeA, InsTimeA, GpsTimeA) 

IF InsFileNameS <> *" THEN SEEK #InsFile%, 1 
IF GpsFileNameS <> " THEN SEEK #GpsFile%, 1 


MergeHeaderS = NewHEADERS 


’Construct the new header for the merge file. 


’Construct string for mission name and date information. 
NewNameDateS = NamcDATE$(MissionName$, MissionDateS) 

FileSourceS = "EXB" 

ExbReset (WriteDriveId%) 


CALLS SETTGT(ReadDriveId%, 0) 
CLS 

PresentFile 
RowsTime2& = 0 


DO 


’ Step through ROWS file until start of first full second. 


RowsTimel& = RowsTime2& 

ReadRecord 

RowsTimeS = PcClockTime$(MIDS(NewRecord, 757, 3)) 
IF RowsTimeS = "FF:FF:FF" THEN 
RowsTimeS = RowsTime3S 
MID$(NewRecord f 757, 3) = RowsTimeS 
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SUB MERGE (coot) 

END IF 

RowsTime3$ = RowsTimeS 
RowsTime2& = IntegerTIME&(RowsTime$) 


’ Assume mission starting time is always entered as 
’ earlier than the time of the first radar waveform. 
IF RowsTime2& < StartTimeA THEN RowsTime2& = RowsTime2& + 86400 
LOOP UNTIL RowsTtme2& = RowsTimel& + I 


Dt% = 0 

RowsT2# = RowsTime2& 

InsTime# = InsTime& 

Gain% = 1 1 Gain array index 

ENDS = * ■ 

RecordsMerged& = 0 


* Primary loop to merge successive ROWS records with the ancillary data. 
DO 


MergelNS NewRecord, MergeHeaderS, StartT1me&, RowsT2# p InsTime#, InsFile%, InsTimeLagS 
MergeGPS NewRecord, StartTimeA, RowsTimel&, RowsTime2&, GpsTime&, GpsFile% 

* Merge IF gain with ROWS record. 

DO WHILE GainTime&(Gain% + 1, 2) o 0 AND RowsTime2& >= GainTime&(Gain% + 1, 2) 

Gain% = Gain% + 1 
LOOP 

MID$(NewRecord, 766, 1) * MKIS(GainT3meA(Gain%, 1)) 

* Put mission name and date in ROWS record. 

MIDS(NewRecord, 1007, 18) = NewNameDateS 

* Put new modified header in ROWS record. 

MID$(NewRecord, 1, 50) = MergeHeaderS 

1 Correct the antenna shaft angle and put corrected value in the ROWS record. 

MID$(NewRecord, 767, 2) = ShaftAngleS 

’ Write the merged record to the target tape. 

CALLS SETTGT(WriteDriveId%, 0) 

DriveReady 
WriteRecord "EXB", -1 
RecordsMerged& = RecordsMerged& + 1 
LOCATE 15, 30 

PRINT * RECORDS MERGED: *; RecordsMergedA 

* If previous record had no INS data (header ID was -9999) then reset INS header ID bytes to 1011. 
IF MIDS (MergeHeaderS , 45, 2) = NoDataS THEN 
MID$(MergeHeader$, 45, 2) = MKIS(lOll) 

END IF 

RowsTimel& - RowsTime2A 


' Read next record from the source tape. 

CALLS SETTGT(ReadDriveId%, 0) 

DriveReady 

ReadRecord 

CALLS XSENSE(SenseStatus%(0), IERR%) 

IF SenseS tatus(2) = 0 THEN 
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SSUB MERGE (coot) 

RowsTimeS = PcClockTimeS(MID$(NewRecord, 757, 3)) 

IF RowsTimeS = "FF:FF:FP THEN 
RowsTimeS = RowsTime3S 
MIDS(NewRecord ( 757, 3) = RowsTimeS 
END IF 

RowsTime3$ = RowsTimeS 
RowsTime2& = IntegcrTIME&(RowsTimeS) 

IF RowsTime2& < StartTime& THEN RowsTime2& = RowsTime2& + 86400 

SELECT CASE RowsTime2& - RowsTimel& 

CASE IS = 0 

RowsT2# = RowsTime2& + Dt% / 100 * Assumes 100 pulses/sec 

Dt% = Dt% + 1 
CASE IS = 1 

RowsT2# = RowsTime2& 

Dt% = 1 
END SELECT 

ELSEIF (SenseStatus(2) AND 128) OR (SenseStatus(2) AND 8) THEN 

* EOF or "blank" bytes encountered during last read. 


LOCATE 11, 22 

PRINT "Writing last record." 

CALLS SETTGT(W riteDriveId%, 0) 
WriteRecord "EXB", -1 
LOCATE 19, 30 
PRINT "Writing EOF to tape." 
CALLS XEOF(IERR%) 

LOCATE 20, 31 

PRINT "END OF TAPE COPY." 
ENDS = "END" 


ELSE ’ Some type of error has o ecu red. 

LOCATE 12, 25 

PRINT "SYSTEM ERROR: SenseS tatus(2); " HAS OCCURED." 

ENDS = "END" 


END IF 

LOOP WHILE ENDS <> "END" 


Et = TIMER - StartTime 
Hr = FIX(Et / 3600!) 

Min = FIX((Et - 3600! • FIX(Et / 3600!)) / 60!) 

LOCATE 17, 25 

PRINT "Tape copy time is 

PRINT USING "## Hr; Min; 

PRINT USING "## 7 ; FIX(Et - 3600! * Hr - 60! • Min) 

CLOSE 

IDLE 

END SUB 
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SUB MergeGPS 

’ Merge GPS data on DOS disk file with ROWS data in an EXABYTE file. 

i 

’ CALLed by: MERGE 

t 

SUB MergeGPS (MRS, ST&, RT1&, RT2&, GpsTime&, GpsFite%) 

’ Read GPS data and synchronize time with ROWS 

DO WHILE GpsTimeA < RT2& 

IF EOF(GpsFile%) THEN EXIT DO 
LINE INPUT #GpsFiIe%, GpsDataS 
GpsTimeA = TimeGPS&(GpsData$) 

IF GpsTime& < ST& THEN GpsTime& = GpsTime& + 86400 
LOOP 


’ Put GPS latitude and longitude data into ROWS record. 

MID$(MR$, 771, 8) = NoDataLongS + NoDataLongS 
IF GpsTimeA = (RT2& - RT1&) * RT2& THEN 
MID$(MRS, 771, 8) = GPSUtLong(GpsDataS) 

END IF 

END SUB 


SUB Merge INS 

* Merge 44 bytes of "INS" data with a ROWS record. If the time difference between the INS data and the ROWS 

* data is greater than two pc "ticks" then a "NO DATA" (-9999) is entered in the ROWS record. 

1 CALLed by: MERGE 

SUB MergelNS (MRS, MHS, ST&, RT2#, InsTime#, InsFile%, InTLS) 

STATIC InsData AS STRING 


’ Read INS data and synchronize time with ROWS time. 


DO WHILE (InsTime# < RT2# - 2 / TicksPerSec) 
IF EOF(InsFile%) THEN EXIT DO 
InsDataS = INPUTS(44, #InsFile%) 

Ticks = CVL(MID$ (InsDataS, 1, 4)) 

InsTime# = Ticks / TicksPerSec + VAL(InTLS) 


’ Past midnight? 

IF InsTime# < ST& THEN InsTime# = InsTime# + 86400! 

LOOP 


’ Put INS data in present ROWS record. 

MIDS(MRS, 779, 44) = InsDataS 
IF ABS(InsTime# - RT2#) >21 TicksPerSec THEN 
MIDS(MHS, 45, 4) = NoDataS + MKIS(80) 

MIDS(MRS, 779, 80) = STRING$(80, 0) 

END IF 

END SUB 
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Print a message to tbe screen. 


SUB Message 


’ CALLed by: AScIIPkchRoll; Blank; 

CopyExbToDcs ; DosFSe ; 

ExbFde; ExbPrtProcessing; 

ExbStatus ExbTapeLog ; 

FdeOpen; IDLE; 

NoFile; OpenExistingFUe; 

RecordS; Rewind ; 

Version; Waterfall 


ColorS election; 
DosP reProcessing ; 
ExbReset 
FSeN 

INFOFILE; 

OpenNewFUe; 

ValidROWSFUe; 


SUB Message (Row%, NoteS) 

LOCATE Row%, 1 
PRINT BlankUneS 

LOCATE Row%, 42 - LEN(NoteS) / 2 
COLOR 4, 7 
PRINT NoteS; 

COLOR 7, 0 

END SUB 


SUB MINMAX 

' Find the minimum and maximum elements and element indicies of a one dimensional array of size N. 

9 

’ CALLed by: StartingTime 

SUB MINMAX (A&0» N, Amin&, Imin, Amax&, I max) 

REDIM A(N) 

Amax& = A&(1): Imax = 1: Amin& = A&(1): Imin = 1 
i = 1 


i = i + 1 

IF A&(i) > A&(i - 1) THEN 
Amax& = A&(i) 

Imax = i 
ELSE 

Amin& = A&(i) 

Imin = i 
END IF 

LOOP UNTIL i = N 
END SUB 
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FUNCTION NameDATES 

* Insert mission name and date in merged file. 

' CALLed by: MERGE 

» 

FUNCTION NameDATES (NS, DS) 

AS = SPACES(IO) 

B $ = SPACE$(8) 


’ Insert the mission name (10 character field) 

MID$(AS, 1, 10) = RTRI MS(MID$(N$ f 1)) 

’ Insert the mission date as -A-A~. 

BS = RTRIM$(MID$(D$, 1, 8)) 

MID$(BS, 1, 8) = "00\0" + RIGHTS (B$, 4) 

IF LEN(B$) = 8 THEN 
MID$(BS, 1, 8) = BS 
ELSEIF LEN(BS) = 6 THEN 

MIDS(BS t 1, 1) = MID$(BS, 1, 1) 

MIDSfBS, 1, 1) = MID$(BS, 3, 1) 

ELSEIF LEN(BS) = 7 THEN 

MID$(BS, 1 - INSTR(B$, T), 3) = MIDS(BS, 1, 3) 

ELSE 

MIDS(BS, 1, 8) = "-9999999" ’No mission date 

END IF 


NameDATES = AS + DS 
END FUNCTION 
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FUNCTION New HEADERS 

* Create a header for the merged records. Header types and lengths are those used during the ERS-1 

* underflight mission to Newfoundland during November, 1991. 

r 

’ CALLed by: MERGE 

FUNCTION NewHEADERS 


DIM NewHeaderString AS STRING • HeaderLenglh 
DIM Head(2, (HeaderLength% - 2) / 4) AS INTEGER 


Head%(l, 1) = 0: 
Head%(l, 2) = 1: 
Head%(l, 3) = 2: 
Head%(l, 4) = 3: 
Head%(l, 5) = 10020: 
Head%(l, 6) = 6: 
Head%(l, 7) = 5: 
Head%(l, 8) = 1001: 
Head%(l, 9) = 10008: 
Head%(l, 10) = 1009: 
Head%(l, 11) = 1010: 
Head%(l, 12) = 1011: 


Head%(2, 1) = 50 
Head%(2, 2) = 700 
Head%(2, 3) = 4 
Head%{2, 4) = 2 
Head%(2, 5) = 5 
Head%(2, 6) = 2 
Head%(2, 7) = 2 
Head%(2, 8) = 1 
Head%(2, 9) = 2 
Head%(2, 10) = 4 
Head%(2, 11) = 4 
Head%(2, 12) = 80 


’ Header 

’ Radar waveform 
’ pc "tick" time 

* "main bang" to first radar point time delay 
’ pc real-time dock with FF:FF:FF corrected 
’ Aircraft roll angle 
’ Aircraft pitch angle 
’ IFGain 

’ "corrected" antenna shaft angle 
’ GPS Latitude 
’ GPS Longitude 
’ INS data string 


FOR j = OTO 1 

FOR k = j + 2 A j TO HeaderLenglh - 2 STEP 4 

MID$(NewHeaderString$, k, 2) = MKI$(Head%(j + 1, (k + 3 - 2 • j) / 4)) 
NEXT k 
NEXT j 


’Teminate header with -1 (ie., hex FFFF) 

MIDS(NewHeaderStnng$, HeaderLength - 1, 2) = MKIS(-l) 

NewHEADER = NewHeaderSt ringS 
END FUNCTION 


’ CALLed by : DosFile 

SUB NoFile 


Message 17, " NO OPEN FILE" 

Message 18, "Use Function Key 2 to open a File." 
Message 20, "PRESS ANY KEY TO CONTINUE" 
x$ = "": DO UNTIL xS <> xS = INPUTS(l): LOOP 

END SUB 


SUB NoFile 
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* CALLed by: DosFUe 

SUB OpenExistingFlIe 
FHeOpeo Close 1$ 

IF Close! 5 = B N" THEN EXIT SUB 
DO 

LOCATE 18, 1: PRINT BlankLine® 

Message 17, "Enler the NAME of the file you want to OPEN" 
EnterFileName Active. FUeName, Valid® 

LOOP WHILE Valid® = "N" 

OPEN RTRIMS (Active .FUeName) FOR BINARY AS #1 

SEEK #1, L0F(1) - 1023 
ReadRecord 
DecodeRecord 
Active.TEod® = CIockTime® 

Active.TotalRecords = LOF(l) / 1024 

SEEK #1, 1 

ReadRecord 

DecodeRecord 

Active. Record = 2 

Active.ByteLoc = ByteLoc 

Active.TStart® = CIockTime® 


SUB OpenExistingFUe 


Dos = Active 


END SUB 


SUB OpenNewFUc 

’ CALLed by: AsclIPitchRoU; CopyExbToDos 

SUB OpenNewFile (FUeName®) 

ValidName® = w " 

DO 


FileNo% = FREEFILE 
EnterFUeName FUeName®, Valid® 

IF LTRIM® (FUeName®) = " THEN EXIT SUB 
OPEN RTRIM® (File Name®) FOR BINARY AS #FileNo% 

IF LOF(FileNo%) <> 0 THEN 

Message 17, "File * + RTRIM®(FiIeName$) + " already exists" 
Message 18, "Enter a new filename" 

Message 22, "PRESS ANY KEY TO CONTINUE" 
x® = DO: x$ = INPUTS(l): LOOP UNTIL x$ <> "" 
ValidName® = "N" 


END IF 


CLOSE #FileNo% 

LOOP WHILE ValidName® = "N" 
END SUB 
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SUB Param ete rDispU y 

’ Display experiment parameters and variables during screen plotting of the radar return. 

» 

* CALLed by: StepBackwards; StepForwards 

» 

SUB Para mete rDisplay 


LOCATE 12, 3 


PRINT "Clock time: : 

COLOR 11 

PRINT ClockTimeS; : 

COLOR 15 

PRINT " Pulse #: : 

COLOR 11 

PRINT USING "*•#####"; Active.Record - 1; : 

: COLOR 15 

PRINT " Pointing angle: : 

COLOR 11 

PRINT USING "###.#"; Dta.ShaftAngle!: 

COLOR 15 

LOCATE 13, 3 


PRINT "Tick time ; : 

COLOR 11 

PRINT Dta.TickTime; : 

COLOR 15 

LOCATE 13, 49 


PRINT "Pitch angle: : 

COLOR 11 

PRINT USING "###.##"; Dta.Pitch: 

COLOR 15 

LOCATE 14, 49 


PRINT " Roll angle: *; : 

COLOR 11 

PRINT USING "###.##"; Dta.Roll: 

COLOR 15 

LOCATE 16, 3 


PRINT "Trigger delay : 

COLOR 11 


PRINT USING "##### \ V; Dta.TriggerDelay; : COLOR 15: 

PRINT " meters," 

’ Decode and display GPS latitude and longitude, if present 
IF CVI(MID$(Dta. Header, 37, 2)) = 1009 OR CVI(MID$(Dta.Header, 41, 2)) = 1010 THEN 
GPS Display MID$(NewRecord, 771, 8) 

END IF 

END SUB 


FUNCTION PcClodcTImeS 

’ Decode the bytes that contain the output from the pc real-time clock. The three bytes that contain the data 
’ are encoded in binary coded decimal format with the lowest byte having hours, the middle byte having 
’ minutes, and the highest byte having seconds. 

’ CALLed by: DecodeRecord; MERGE 

FUNCTION PcClockTimeS (PcCITimeS) 

DIM T AS STRING *8 

TS = "00:00:00" 

Hrs$ = HEX$(CVI(MID$(PcClTimeS, 1,1) + CHR5(0))) 

MinS = HEX5(CVl(MID$(PcCmimeS, 2, 1) + CHRS(0))) 

SecS = HEX$(CVI(MID$ (PcCITimeS , 3, 1) + CHRS(0))) 

MIDS(T$, 3 - LEN(HrsS), LEN(HrsS)) = HrsS 
MIDS(TS, 6 - LEN(MinS), LEN(Min$)) = MinS 
MID$(TS, 9 - LEN(SecS), LEN(SecS)) = SecS 


PcClockTimeS = TS 


END FUNCTION 
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FUNCTION PcTimeS 


* Decode the Pc computer "tick" time based on 18.20648 ticks per second. PcT& = CVL(MIDS(NewRecord$, 751, 4)) 
’ is passed to this function. (What determines when the tick count is zeros?) 

* CALLed by; DecodeRecord ; ExbTapeLog 

FUNCTION PcTimeS (PcT&) 

DIM T AS STRING • 11 

CONST MaxTicksA = 24 • TicksPerSec • 3600 


TS = "00:00:00.00" 


SELECT CASE PcTA 


CASE IS > MaxTicksA 
TS = "BAD TIME * 

CASE ELSE 

Hr# = PcT& / (TicksPerSec • 3600) 
Min# = (Hr# - INT(Hr#)) • 60! 

Sec# = (Min# * INT[Min#)) • 60! 


HrsS = LTRIM$(STR$(INT(Hr#))) 

MinS = LTRIM$(STRS(INT(Mi n#))) 

Sec $ = LTRIMS(STRS(INT(Sec#))) 

Hundredths ecsS = LTRIMS(STRS(INT(Sec# * 100) - 100 * INT(Sec#))) 

MID$(TS, 3 - LEN(Hrs$), LEN(HrsS)) = His$ 

MIDSOTC, 6 - LEN(MinS), LEN(MinS)) = MinS 
MID$(T$, 9 - LEN(SecS), LEN(SecS)) = SecS 

MIDS(TS, 12 - LEN(HundredthSecsS), LEN(HundredthSecsS)) = HundredthSecsS 
END SELECT 
PcTimeS = T$ 

END FUNCTION 


FUNCTION Pitch Roll! 

1 Convert the pitch and roll in degrees for a 14 bit shaft angle encoder. The 120 degrees is subtracted because the 
’ shaft angle encoder was incorrectly wired for the ERS1 mission in November of 1991. 

’ CALLed by; DecodeRecord 

FUNCTION PitchRolI! (AS) 

PitchRoll! = 360! • CVL(AS + CHRS(O) + CHRS(0)) / (2 * 14) - 120! 

END FUNCTION 
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SUB PlotRadReturn 

’ Plot the radar waveform and display auxiliary data below the waveform. The user can step forward one record at 

’ a time, step backward one record at a time, or step continuously forward. 

* 

’ CALLed by: DosPrtProcessing ; ExbP reProcessing 

SUB PlotRadReturn ’ [12/10/91] 

KEY OFF 

BegEndByte WaveformStart%, WaveformS to p% 

StartByte% = Wa ve formS tart % + HeaderLength% 

StopByte% = WaveformStop% + HeaderLength% 

SCREEN 12 
VIEW (1, 1X600, 128) 

WINDOW (StartByte%, 256XStopByte%, 1) 

VIEW PRINT 12 TO 30 

Help2 

DO: LOOP WHILE INKEYS <> "" 

Code% = 0 


Code2% = KeyCode(INKEYS) 
SELECT CASE Code2% 


* Select valid keys for interrupt. 1000 is added to the ALT keycodes. 


CASE 1048, 1033, 70, 66, 27 
Code% = Code2% 


END SELECT 

IF FileSourceS = "EXE" THEN 

CALLS XSENSE(SenseStatus(0), IERR%) 

IF SenseS tatus(2) <> 0 THEN 
CbeckExbStatus SenseStatus(2) 

Help2 
END IF 
END IF 

SELECT CASE Code% 

CASE 70, 1033 ’ [F] forward one record 

’ [ALT-F] continuous forward 


StepForwards Code%, StartByte%, StopByte% 

CASE 66, 1048 ’ [B] backwards 1 record 

’ [ALT-B] continuous backwards 


’Don’t step the EXABYTE 8200 backwards 


IF FileSourceS = "DOS" THEN 

StepBackwards Code%, StartByte%, StopByte% 
ELSE 

Code% = 0 
END IF 
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CASE 27 


’ [ESC] exit display 


SUB PlotRadReturn (coot) 


EXIT DO 

CASE ELSE ’ invalid key 

END SELECT 
Help2 


IF FileSourceS = "DOS" AND Active. Record > Active. To talRecords THEN 
VIEW PRINT 
LOCATE 26, 28 
PRINT "END OF FILE" 

DO 

Codc% = KeyCode(INKEYS) 

LOOP UNTIL Codefc = 66 OR Code% = 1048 OR Code% = 27 
LOCATE 26, 28: PRINT " 

END IF 

LOOP 

SCREEN 0 
KEY ON 

END SUB 
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SUB PreseatFile 


* CALLed by: AscIIPitchRoU; CopyExbToDos; DasFiie; 

DosP reprocessing ; ExbFile; ExbPreProcessing; 

FileN; FirstMenu; MERGE; 

RecordN 

SUB PresentFile 

RowOffSct% = 4 
ColOffSetfb = 16 

SELECT CASE FileSourceS 

CASE "DOS" 

Active = Dos 

CASE "EXB" 

Active = Exb 

CASE ELSE 

ResetActiveStats 
Reset Du 

END SELECT 

RecordNumber& = Active.Record - 1 

COLOR 3, Cfc LOCATE RowOffSetffc, ColOffSet% - 1 

PRINT CHR$(201); STRING$(52, CHRS(205)); CHR$(187) 

FOR i = 0 TO 4 

LOCATE RowOfTSet% + i + 1, CoIOffSet% - 1: PRINT CHRS(186) 
LOCATE RowOffSet% + i + 1, ColOffSet% + 52: PRINT CHRS(186) 

NEXT 

LOCATE RowOffSet% + 6, ColOffSet% - 1 

PRINT CHR$(200); STRING$(52, CHRS(205)); CHR$(188) 

COLOR 7, 0: LOCATE RowOffSet% + 1, ColOffSet% + 1 

PRINT "FILE:" 

COLOR 4, 7: LOCATE RowOffSet% + 1, ColOflSetfc + 7 

PRINT RTRIM$(Active.FiIeName) 

COLOR 7, 0: LOCATE RowOffSet% + 2, ColOffSet% + 1 

PRINT "TOTAL RECORDS: ■; 

COLOR 4, 7: PRINT Active.TotaJ Records 

COLOR 7, 0: LOCATE RowOffSet% + 3, Co!OffSet% + 1 

PRINT "STARTING TIME: 

COLOR Ay 7: PRINT " " + Active.TStart + " 

COLOR ly 0: PRINT " ENDING TIME: 

COLOR 4, 7: PRINT " " + Active.TEnd + " " 

COLOR ly 0: LOCATE RowOffSet% + 5, ColOffSeifc + 1 

PRINT "PRESENT RECORD #: *; 

COLOR 4, 7: PRINT RecordNumber&; 

COLOR ly 0: PRINT " TIME: 

COLOR 4, 7: PRINT " " + ClockTimeS 

COLOR ly 0 
END SUB 
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SUB Read Record 


’ CALLed by: CopyExbToDos ; DosPrt Processing ; ExbPreProcessing; 

Ex bT ape Log ; FUeN; MERGE ; 

OpenExistingFUe ; RecordN; SlepBackwards ; 

Step Forwards; Waterfall 

SUB ReadRecord 

SELECT CASE FileSource$ 

CASE "DOS" 

NcwRecord = INPUT$(1024, 1) 

CASE "EXB" 

CALLS XRCHR(Ne wReco rd, 1, IERR%) 

END SELECT 

Active.Record = Active.Record + 1 
END SUB 


SUB RecordN 

’ Move record pointer to record number N. For EXABYTE files the pointer is positioned 
* at the end of record N while for DOS files the pointer is at the beginning of record N. 

’ CALLed by: AscIIPitchRoll; CopyExbToDos; DosPre Processing; 

" ExbPreProcessing 

f 

SUB RecordN 
S& = 0! 

SELECT CASE FileSourceS 
CASE "DOS" 

DO 


CLS 

Presen tFile 

Message 17, "Enter the first record number for processing." 

EnterRecord S& 

IF S& = Active.Record - 1 THEN 
EXIT SUB 
END IF 

IF S& > L0F(1) / 1024 THEN 
Presen tFile 

TextS = "Your starting record number is beyond the end of the file." 

Message 17, TextJ 

Message 18, "Enter a new number." 

BEEP 
SLEEP 1 
END IF 

LOOP WHILE S& > LOF(l) / 1024 
Active.Record = S& 

SEEK #1, (S& - 1) • 1024 + 1 

CASE "EXB" 
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SUB RccordN (cont) 


RecordsMoved& = 0 

Message 17, "Enter the first record number for processing." 

EnterRecord S& 

IF S& = Active.Record - 1 THEN 
EXIT SUB 
END IF 

IF S& = 1 AND Active.FileNo = 1 THEN 
Rewind 
ResetExbStats 
Active = Exb 
ReadRecord 
DecodeRecord 
Active.TStart = ClockTimeJ 
EXIT SUB 
END IF 

IF Active.Record = 0 THEN 
ReadRecord 
DecodeRecord 
Active.TStart = ClockTimeS 
END IF 

Jump& = S& - Active.Record 
MoveRecords% = SGN(Jump&) * 32000 

IF (Jump& < 0) AND (S& < 500) AND Active.Record > 1000 THEN 

’ If it is necessary to move backwards to near the beginning of the file, 
’ it is quicker to go to the first record and then step forward. 

CALLS XSKIPF(-1, IERR%) 

CALLS XSKJPF(1, IERR%) 

Jump& = S& - 1 
END IF 

CALLS XSENSE(SenseStatus(0), IERR%) 

DO WHILE (ABS{Jump&) > 0) AND (SenseStatus(2) < 128) 

IF ABS(Jump&) <= 32000 THEN MoveRecords% = Jump& 

CALLS XSPACE(MoveRecords%, IERR%) 

RecordsMoved& = RecordsMoved& + MoveRecords% 

Jump& = Jump& - MoveRecords% 

DecodeRecord 

Update 

LOOP 

CALLS XSENSE(SenseStatus(0), IERR%) 

IF SenseS tatus(0) AND 128 THEN 

’ Test if trying to jump ahead more records than are in the file. 
NonRecordsA = SenseStatus(4) * (256! A 2) + SenseStatus(5) * 256! + SenseStatus(6) 

RecordsMoved& = RecordsMoved& * NonRecords& 

END IF 

IF (SenseS tatus(2) AND 128) THEN ’ If EOF. 

Active.TotalRecords = Active.Record + RecordsMoved& 

Message 17, "EOF reached." 

CALLS XSKIPF(*1, IERR%) 

CALLS XSPACE(-1, IERR%) 

Active.Record = Active.Record - 1 
END IF 

CALLS XSENSE(SenseStatus(0), IERR%) 
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SUB RecordN (coot.) 


IF (SenseS tatus(2) AND 8) THEN ’ If EOD. 

Message 17, "BOD reached. Read head moved past last EOF." 
TextS = "Tape will be positioned at end of last file." 

Message 18, TextS 

IF Aclive.Record = 0 THEN 

CALLS XSKIPF(-1, IERR%) 

CALLS XSPACE(-1, IERR%) 

RecordsMoved& = 0 

ELSE 

Message 19, "NOTE: Last file does not have an EOF." 
CALLS XSPACE(-1, IERR%) 

RecordsMovedfe = 0 

END IF 

END IF 

Active,Record = Active.Record + RecordsMoved& 

ReadRecord 

DeoodeReoord 

Update 

IF Active.Record = Aclive.TotalRecords THEN 
Active.TEnd = CloclcTimeS 
ELSEIF Active.Record = 1 THEN 
Active.TStart = ClockTimeS 
END IF 

Active.ByteLoc = (Active.Record - 1) * 1024 + 1 
Exb = Active 

END SELECT 

END SUB 
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SUB ResetActiveStats 

’ CALLed by: MAIN; FirstMenu; PresentFSe 

SUB ResetActiveStats 

Active.FileName = SPACE$(40) 

Active.FileNo = 0 
Active.TStart = " " 

Active.TEud = " " 

Active.Record = 0 
Active.TotalRecords = 0 
Active.ByteLoc = 0 

END SUB 


SUB ResetDosSUts 

’ CALLed by: MAIN; DosFile; EnterFHeName; FileOptn 

SUB ResetDosStats 
CLOSE #1 

Dos.FileName = SPACE$(40) 

Dos.FileNo = 0 
Dos.TStart = " " 

Dos.TEnd = ■ 

Dos. Record = 0 
Dos.TotalRecords = 0 
Dos.ByteLoc = 0 
END SUB 


SUB ResetDU 

’ CALLed by: MAIN; FirstMenu; PresentFUe 

SUB ResetDta 

Dta.Header = SPACES(HeaderLength%) 

Dta.Radar = SPACE$(700) 

Dta.AccurateTime = SPACES(ll) 

Dta.TicIcTime = SPACE$(1 1) 

Dta.TrueTime = SPACES (8) 

Dta.TriggerDelay = 0 
Dta .Pitch = 0 
Dta.RolI = 0 
Dta.S haft Angle = 0 
END SUB 


SUB RcsetExbSUts 

' CALLed by: MAIN; ExbFUe; FdeN; RecordN 

SUB ResetExbStats 
Exb.FileNo = 1 
Exb.TStart = ■ 

Exb.TEod = ■ 

Exb.TotalRecords = 0 

Exb.FileNanie = RTRIM$(" Exabyte file # ") ♦ "1" 

Ex b. Record = 1 
Exb.ByteLoc - 1 
END SUB 
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’ CALLedby: 
SUB Rewind 


ExbTapeLog ; 


RecordN 


SUB Rewind 


’ Rewind EXABYTE tape to LBOT 

Message 17, "REWINDING TAPE." 

CALLS XREWND(IERR%) 

Message 17, "COMPLETED." 

END SUB 


* Decode the rotation angle of the antenna shaft as implemented after September 1991. 


FUNCTION RoUtio&Angle! 


1 CALLed by: DecodeRecord; ShqftAngle 

* INPUT: binary coded decimal degrees to 0.1 degrees 
' OUTPUT: decimal degrees 

FUNCTION RotationAngle! (RotAngS) ’ [12/17/91] 

LeftBits% = CVI(MID$(RotAngS, 1, 1) + CHRS(O)) 

RightBits% = CVI(MID$(RotAng$ t 2, 1) + CHRS(O)) 

Angl! = 100! * ((RightBits% AND 48) \ 16) + 10! * (RightBits% AND 15) 

Ang2! = .1 • (LeftBits% AND 15) + 1! • ((LeftBits% AND 255) \ 16) 


RotationAngle! = Angl! + Ang2! 
END FUNCTION 


SUB ShaftAngleS 

* "Correct" the raw antenna shaft angle values for missing bits. The corrected angle is accurate to about +/- 0.4 deg. 

* CALLed by: DecodeRecord; MERGE 

FUNCTION ShaftAngleS 

STATIC Angle 1 AS SINGLE, Angle2 AS SINGLE 
Angle2 = Angle 1 

Angle$ = MID$ (NewReco rd$ , 767, 2) 

Angle 1 = RotationAngle !(AngleS) 


’ Test and correct for missing 1 deg. bit 

IF (Angle2 - Anglel < 0) OR (Angle2 - Anglel >= 1) THEN ’ NOTE : This test doesn't work correctly 

when * the angle goes across 360 degrees. 

Anglel = Anglel + 1! 

END IF 

a4% = INTK(INTXAnglel)) / 100) 
a3% = INT((INT(AngIel) - a4% * 100) / 10) 
a2% = INT( Anglel) - a4% * 100 - a3% • 10 
al% = INT(( Anglel - INT^Anglel)) • 10) 

BcdAngle% = al% + (2 A 4) * a2% + (2 A 8) * a3% + (2 A 12) * a4% 

BcdAngle% = BcdAngle% + (CVI(AngleS) AND &HCOOO) 

ShaftAngleS = MKI$(BcdAngle%) 

END FUNCTION 
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SUB STARTINGTIME 

* Find the earliest time between the mission starting time, the first INS time, and the first GPS time. 

’ CALLed by: MERGE 

f 

SUB STARTINGTIME (StartTimeA, MTA, IT&, GT&) 


Tn = 3 

DIM Times(Tn) AS LON G 

TimesA(l) = MTA: TimesA(2) = IT&: TimesA(3) = GTA 

’ Find the earliest time and use as the mission starting time. Algorithm assumes less than 2 hours (7200 secs) between the earliest 
’ and latest starting times for acquiring GPS and INS data and the operator entered "Mission" starting time. 

DO 

MINMAX Times&0» Tn, MinTime&, MinElement, MaxTimeA, Max Element 
IF MaxTimeA > MinTimeA + 7200 THEN 

TimesA(MinElement) = TimesA(MinElement) + 86400 
END IF 

LOOP UNTIL MaxTimeA <= MinTimeA + 7200 

StartTimeA = TimesA(MinElement) 

ERASE TimesA 

END SUB 


SUB StepBackwards 

’ Steps a DOS file backwards one record at a time. NOTE: With the present EXABYTE drive, it isn’t 

’ practical to step backward through a file one record at a time. 

1 

’ CALLed by: PlotRadarRetum 

SUB StepBackwards (C%, StrBy%, StpBy%) 

Active.Record = Active.Record * 2 


’ Test for beginning of file. 

IF Active.Record > 0 THEN 
SEEK 1, ByteLoc& 

Read Record 
Decode Record 
ParameterDisplay 
WaveFormPlot StrBy%, StpBy% 

ELSE ’ At beginning of file. 

Active.Record = 1 
SEEK 1, ByteLocA 
ParameterDisplay 
WaveFormPlot 1, 1 
VIEW PRINT 
LOCATE 26, 28 
PRINT "BEGINNING OF FILE" 

DO 

Keystroke C% 

LOOP UNTIL C% = 70 OR C% = 33 OR C% = 27 
LOCATE 26, 28: PRINT " 

END IF 

IF C% a 66 THEN C% = 0 
END SUB 
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SUB StepForwards 

’ CALLed by: PlotRadarReturn 

SUB StepForwards (C%, StrBy% t StpBy%) 

ReadRecord 
DecodeRecord 
ParameterDisplay 
WaveFormPlot StrBy%, StpBy% 

IF C% = 70 THEN C% = 0 

END SUB 


FUNCTION TimeGPS& 

* Read the time in ASCII from the GPS File and convert to a long integer. Eight 
' seconds are subtracted from the time to bring it into correspondence with UTC. 

» 

’ CALLed by: MERGE; MergeGPS 

FUNCTION TimeGPS& (D$) 

lb% = INSTR(D$, V) 

Te% = INSTR(Tb% + 1, D$, V) 

GpsS = MID$(D$ f Tb% + 1, Te% - Tb% - 1) 

IF - Tb% = 9 THEN 

Hr& = VAL(MIDS(Gps$, 1, 2)) • 3600 
Min& = VAL(M3D$(Gps$, 3, 2)) * 60 
Sec& = VAL(MID$(Gps$, 5)) - 8 

TimeGPS& = Hr& + Min& + Sec& 

ELSE ’ If GPS field is less than 8 characters put appropriate code here. 

END IF 

END FUNCTION 


* CALLed by: AscllPitchRoU; CopyExbToDos; ExbP reprocessing; 

RecordN 

SUB Update 

COLOR 7, 0: LOCATE RowOffSet% + 5 t ColOffSet% + I 
PRINT "PRESENT RECORD #: 

COLOR 4, 7: PRINT Active.Record - 1; 

COLOR 7, 0: PRINT ■ TIME: 

COLOR 4, 7: PRINT * ■ + ClockTimeS; 

COLOR 7, 0: PRINT " " ’ Blanks some previous characters 

END SUB 


SUB Update 
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SUB ValidROWSFik 

’ CALLed by: EnterFileName 

SUB VaJidROWSFile (Vn$, FileNo%) 

SELECT CASE LOF(FileNo%) / 1024 

CASE IS <> INT(LOF(FileNo%) / 1024) 

Message 17, "Probable non-ROWS or corrupted data File" 

Vn$ = "N" 

SLEEP 2 

CASE 0 

Message 17, RTRIMS(Active.FileName) 

Message 19, "does not exist" 

KILL Active.FileName 
VnS = "N" 


CASE ELSE 

Active.Record = 1 
Active. By teLoc = 1 
Vn$ = "Y" 


END SELECT 
END SUB 


SUB Version 

* Display the PREROWS program version. (9/23/92) 

' Coiled by: FirstMcnu 

SUB Version 
CLS 

Message 12, "PREROWS version 2 (10/13/92)" 

Message 14, "Use with ERS-1 mission and later" 

IDLE 

END SUB 
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* Color coded waterfall display of ROWS pulse data. 

t 

’ Convert a byte to a 16 bit integer by appending an ASCII 0 to the rigbtband byte of tbe word. 
’ CALLed by: DosP reprocessing; ExhPrtProcessing 

9 

SUB Waterfall 

DIM FileByteLength AS LONG 
STATIC NutnOfRecords& 

KEY OFF 

Start Record & = Active. Record 
SELECT CASE FileSourceS 

CASE "DOS" 

FileByteLength = Active.TotalRecords • 1024 
CASE "EXB" 

IF NumOfRecords& <= Active.Record + 1 THEN 
CLS 

TextS = "Enter the largest valid record number for processing" 

Message 15, TextS 
INPUT ; NumOfRecordsA 
END IF 

FileByteLength = N u mO fReco rds& • 1024 
END SELECT 

IF Active.Record >= (FileByteLength / 1024 - 1) THEN 
CLS 

Message 17, "NOTHING TO DO" 

SLEEP 2 
EXIT SUB 
END IF 

BegEndByte WaveformStart%, WaveformStop% 

ColorLevels 

StartByte% = WaveformStart% + HeaderLength% 

StopByte% = WaveformStop% + HeaderLength% 

ViewXl% = 30: ViewYl% = 40 
ViewX2% = 619: ViewY2% = 459 
WindowXl% = 0: WindowYl% = StartByte% 

WindowX2% = ViewX2%: WindowY2% = StartByte% + ViewY2% 

SCREEN 12 

VIEW (ViewXl%, ViewYl%HViewX2%, ViewY2%) 

WINDOW (WindowXl%, WindowYl%)-(WindowX2% l WindowY2%) 

IF (FileByteLength - Active. By teLoc + 1!) / 1024 >= WindowX2% THEN 
Wdth% = WindowX2% 

ELSE 

Wdth% = (FileByteLength - Active. By teLoc + 1) / 1024 
END IF 


SUB Waterfall 
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SUB Waterfall (cont) 

IF (StopByte% - StartByte%) > 479 THEN StopByte% = StartByte% + 479 
ColCoord% = ViewXl% / 8! - 3! 

RowCoord% = 25! - (1! • (StopByte% - StartByte% - ViewYl%) / 18!) 

StartRecordA = Active. Record 
ReadRecord 
DecodeRecord 
Active.ByteLoc = ByteLoc 

LOCATE RowCoord%, CoICoord% 

PRINT USING "\ V; ClockTimeS 

k = 0 

DO WHILE Active.Record < Wdth% + StartRecordA AND Active.Record <= FiIeByteLength - 1023 
k = k + 1 

IF KeyCode%(INKEY$) = 27 THEN EXIT DO 

ReadRecord 

DecodeRecord 

FOR j = StartByte% TO StopByte% 

PSET (k, j), CoIorLevel(CVI(MID$(NewRecord, j, 1) + CHRS(O))) 

NEXT j 
LOOP 

LOCATE RowCoord%, Wdth% / (8! * WindowX2% / 620!) - 5 
PRINT USING "\ \"; ClockTimeS 

DO: kS = INKEYS: LOOP WHILE kS <> " 

DO: kS = INKEYS: LOOP WHILE kS = 

SCREEN 0 

Active.ByteLoc = ByteLoc 
END SUB 


SUB WaveFormPlot 

9 CALLed by: StepBackwards; StepForwards 

SUB WaveFormPlot (StartByte%, StopByte%) 

DIM WaveForm(700) AS INTEGER 

REDIM WaveForm(StartByte% TO StopByte%) AS INTEGER 
CLS 1 

WaveForm%(StartByte%) = CVI(MIDS(THa.Radar, StartByte9&, 1) + CHR$(0)) 

FOR i = StartByte% + 1 TO StopByte% 

WaveForm%(i) = Cyi(MIDS(Dta.Radar, i - HeaderLength%, 1) + CHRS(0)) 

LINE (i - 1, WaveForra%(i - l))-(i, WaveForm%(i)), 10 
NEXT 

END SUB 
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SUB Write Record 

■ CALLed by: CopyExbToDos; MERGE 

SUB WrileRecord (FileSource$, FiieNumber%) 

SELECT CASE FileSourceJ 
CASE "DOS" 

PUT FiIeNumber%, , NewRecord 
CASE "EXB" 

CALLS XWRCHR(NewRecord, 1, IERR%) 

Drive Ready 

END SELECT 
END SUB 
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